Aktueller exe Pfad

[Velindos]

Hallo,
wie erhalte ich im PB den aktuellen exe-Pfad meiner Anwendung, sprich wo ich Sie gestartet habe?
Will mein Programm in verschiedene Verzeichnisse speichern und bei Aufruf nur jeweilige(SQL-Datei) DatenDatei verwenden.

Gruss und ein frohes Fest ... Velindos

PS: Du fährst mit dem Auto und hältst eine konstante Geschwindigkeit. Auf deiner linken Seite befindet sich ein Abhang. Auf deiner rechten Seite fährt ein riesiges Feuerwehrauto und hält die gleiche Geschwindigkeit wie du. Vor dir galoppiert ein Schwein, das eindeutig grösser ist als dein Auto und du kannst nicht vorbei. Hinter dir verfolgt dich ein Hubschrauber auf Bodenhöhe. Das Schwein und der Hubschrauber haben exakt deine Geschwindigkeit!
Was unternimmst du, um dieser Situation gefahrlos zu entkommen???


Vom Kinderkarussell absteigen und weniger Glühwein saufen!!!!

[Waldixxl]

Hallo Velindos

Versuche es mal mit ProgramFilename()

Frohe Weihnacht
Walter

[ts-soft]

oder besser mit: GetPathPart(ProgramFilename())

ACHTUNG: Damit der Pfad auch in der IDE stimmt (weil normalerweise compiliert die IDE im Tempordner),
in den Einstellungen:
Compiler / Standards / Temporäres Executable im Quellcode-Verzeichnis erstellen abhaken.

Frohes Fest
Thomas

[Velindos]

Hallo,
hier die ganze Geschichte zum Nachlesen!

Code: Alles auswählen

Procedure DatenbasefileSet()
  Aktuell_Pfad$=ProgramFilename()
  PathRemoveFileSpec_(@Aktuell_Pfad$)
  DatabaseFile$= Aktuell_Pfad$+"\"+"Zieldatei.xxx" ; Hier die Zieldatei
  MessageRequester("","Pfad: "+DatabaseFile$,0)
EndProcedure

Findet, schneidet und fügt ein!

Gruss ... Velindos

[ts-soft]

@Velindos
Die verwendete API ist doch unnötig, PB kennt doch GetPathPart()

[Velindos]

Hallo,
habe den Rat befolgt und die Sache auf das umgestellt!

Code: Alles auswählen

  Aktuell_Pfad$=ProgramFilename()
  PathRemoveFileSpec_(@Aktuell_Pfad$)
  DatabaseFile$= Aktuell_Pfad$+"\"+"Zieldatei.xxx" ; Hier die Zieldatei
  MessageRequester("","Pfad: "+DatabaseFile$,0)
  
  Debug DatabaseFile$

  DatabaseFile1$=GetPathPart(Aktuell_Pfad$) 
  DatabaseFile2$=DatabaseFile1$+"Zieldatei.xxx"; Hier die Zieldatei
  MessageRequester("","Pfad: "+DatabaseFile2$,0)

  Debug DatabaseFile1$
  Debug DatabaseFile2$

Nun ganz Funzt die Sache nicht. Den beim Debugen erhält folgende Aussagen:

C:\Users\MEDION\AppData\Local\Temp\Zieldatei.xxx
C:\Users\MEDION\AppData\Local\
C:\Users\MEDION\AppData\Local\Zieldatei.xxx

Plötzlich fehlt \Temp?

Gruss ... Velindos

[STARGÅTE]

Weil du mit der API PathRemoveFileSpec_(@Aktuell_Pfad$) den Aktuellen Pfad im Speicher änderst!
Damit fehlt für das untere Zeug, das temp schon:

Code: Alles auswählen

  Aktuell_Pfad$=ProgramFilename()
  PathRemoveFileSpec_(@Aktuell_Pfad$)
  DatabaseFile$= Aktuell_Pfad$+"\"+"Zieldatei.xxx" ; Hier die Zieldatei
  MessageRequester("","Pfad: "+DatabaseFile$,0)
  
  Debug DatabaseFile$

  Aktuell_Pfad$=ProgramFilename()
  DatabaseFile1$=GetPathPart(Aktuell_Pfad$) 
  DatabaseFile2$=DatabaseFile1$+"Zieldatei.xxx"; Hier die Zieldatei
  MessageRequester("","Pfad: "+DatabaseFile2$,0)

  Debug DatabaseFile1$
  Debug DatabaseFile2$

[Velindos]

Hallo,
wusste ich nicht, werde es gleich einbauen!

Danke für deine RAT!

Gruss ... Velindos

[STARGÅTE]

Es ist ein Unterschied ob du einer Funktion (Prozedur) eine Variable (String) als Wert übergibst:
Irgendwas(String$)
oder als Adresse (Referenz):
Irgendwas(@String$)

Beim ersten übergibst du eine Kopie, die dann verändert wird, uns ggf. wieder zurück gegeben wird.
Beim zweiten übergibst du die Adresse des Originals, was dann auch verändert wird.
Deswegen wird bei PathRemoveFileSpec_() auch nichts zurück geben. weil es ja direkt verändert wird.
Bei GetPathPart() bekommst du die Kopie sozusagen zurück.