dateifpad von datei aus ermitteln

[cofter]

Hi zusammen,
ich möchte gern den Pfad einer Datei ermitteln den ich nicht kenne bzw. kenn ich nur das Verzeichnis wo die Datei liegt

bekannt ist \meinProgramm\start.exe

wie bekomme ich den rest raus damit ich einen absoluten Pfad bekomme?

hoffe ihr könnte mir auf die sprünge helfen.


mfg

[Fluid Byte]

In welcher Situation kriegst du denn nur den "halben" Pfad?

[cofter]

Ich weiss in welchen Ordner mein Programm liegt nur weiss ich nicht den kompletten absoluten Pfad weil ich noch eine exe aufrufen muss und runProgram() will ja immer nen absoluten Pfad haben.

[Fluid Byte]

Ich weiss in welchen Ordner mein Programm

Woher? Und dann kennst du nicht den ganzen Pfad? Kannst du die .EXE während Laufzeit laden? Dann wäre es einfach.

[ts-soft]

Wenn der Pfad relativ zu Deiner Exe ist so:

Code: Alles auswählen

Procedure.s GetExePath()
  Protected Result.s
  If LCase(GetPathPart(ProgramFilename())) = LCase(#PB_Compiler_Home + "Compilers\")
    Result = GetCurrentDirectory()
  Else
    Result = GetPathPart(ProgramFilename())
  EndIf
  If Right(Result, 1) <> "\" : Result + "\" : EndIf
  ProcedureReturn Result
EndProcedure

RunProgram(GetExePath() + "meinProgramm\start.exe")

[cofter]

Erstmal danke ts-soft für den Code, leider scheint er bei mir nicht zu funktionieren.

Hier mal mein kompletter Code.

Code: Alles auswählen

Procedure.s GetExePath()
  Protected Result.s
  If LCase(GetPathPart(ProgramFilename())) = LCase(#PB_Compiler_Home + "Compilers\")
    Result = GetCurrentDirectory()
  Else
    Result = GetPathPart(ProgramFilename())
  EndIf
  If Right(Result, 1) <> "\" : Result + "\" : EndIf
  ProcedureReturn Result
EndProcedure

Open_SolaniaUpdater()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_Event_Gadget
    
    If GadgetID = #ProgressBar_0
      
    ElseIf GadgetID = #B_launch
      
      ;RunProgram("c:\Solania\Solania_005\Solania.exe")
      RunProgram(GetExePath() + "Solania_005\Solania.exe")
      quit = 1   
    ElseIf GadgetID = #B_quit
      quit = 1
    ElseIf GadgetID = #Web_0
      
    EndIf
    
  EndIf
  
Until Event = #PB_Event_CloseWindow Or quit = 1 ; End of the event loop

End
;

[DrShrek]

;RunProgram("c:\Solania\Solania_005\Solania.exe");

Du weisst doch den Pfad...also warum so umständlich?

[cofter]

Das war ein Test ob runProgram() macht was es soll.

[DrShrek]

Das war ein Test ob runProgram() macht was es soll.

Und Test bestanden?

[cofter]

Ja... nur muss ich den absoluten Pfat ermitteln weil ich net weiss wo jemand anders das Programm installiert.