.xxx als .exe starten

a14xerus · Beitrag von **a14xerus** » 14.04.2007 14:02

und warum sollte das nicht gehen?

kreeph · Beitrag von **kreeph** » 14.04.2007 14:11

Gut hab da Problem (einigermaßen) behoben. Es soll nicht gehen weil ich die Datei bzw. Speicherort noch für andere Sachen brauchte und wenn ich sich rename gibts den Speicherort nicht mehr... Wie schon gesagt, habs jetzt behoben, aber hätte dann ne neue Frage

. Wie finde ich heraus in welchen Verzeichnis eine Datei gespeichert ist?
edit: und wie kann ich jetzt den namen einer datei speichern wenn ichd as ganze verzeichnis habe? also z.B. C:\Dokumente und Einstellungen\Benutzer\Desktop\Programm.exe

AND51 · Beitrag von **AND51** » 14.04.2007 14:21

Bitte schau doch in Hilfe: GetPathPart()

a14xerus · Beitrag von **a14xerus** » 14.04.2007 14:22

GetFilePart()

Edit: And51 war schneller

kreeph · Beitrag von **kreeph** » 14.04.2007 14:31

Hm Sorry find ich in der Hilfe nicht. Sicher, dass das ein 3.30er Befehl ist?
Und wie krieg ich aus einem ganzen Pfad die Datei raus?

ts-soft · Beitrag von **ts-soft** » 14.04.2007 14:48

kreeph hat geschrieben:Hm Sorry find ich in der Hilfe nicht. Sicher, dass das ein 3.30er Befehl ist?
Und wie krieg ich aus einem ganzen Pfad die Datei raus?

Mit Stringfield die Anzahl BackSlahes prüfen und mit Right abtrennen, oder
von rechts rückwärts nach erstem Backslash suchen und abtrennen, oder
PB4.0 kaufen

kreeph · Beitrag von **kreeph** » 14.04.2007 16:12

Ok ich werds mal versuchen.
Und unter API gibts da nix?
Und wie finde ich das Verzeichnis der Datei raus?

ts-soft · Beitrag von **ts-soft** » 14.04.2007 16:18

kreeph hat geschrieben:Ok ich werds mal versuchen.
Und unter API gibts da nix?
Und wie finde ich das Verzeichnis der Datei raus?

Code: Alles auswählen

Path.s = "c:\windows\system32\notepad.exe"
PathRemoveFileSpec_(@Path)
If Right(Path, 1) <> "" : Path + "" : EndIf
Debug Path

kreeph · Beitrag von **kreeph** » 14.04.2007 16:36

Klappt nicht

PathRemoveFileSpec_(@Path) wurde in der Dll nicht gefunden.

ts-soft · Beitrag von **ts-soft** » 14.04.2007 16:38

kreeph hat geschrieben:Klappt nicht
PathRemoveFileSpec_(@Path) wurde in der Dll nicht gefunden.

Erfordert Internet Explodierer 4, denn sollte wohl inzwischen jeder haben

//Edit
Dies könnte mit UrAlt PB laufen, kanns aber nicht testen:

Code: Alles auswählen

Procedure.s GetPath(File.s)
  If OpenLibrary(0, "shlwapi.dll")
    CallFunction(0, "PathRemoveFileSpecA", @File)
    If Right(File, 1) <> "" : File + "" : EndIf
    CloseLibrary(0)
    ProcedureReturn File
  EndIf
EndProcedure

Debug GetPath("c:\windows\system32\notepad.exe")