Dateinamen extrahieren

Hallo, hat jemand einen Tip wie man den Dateinamen aus einem kompletten Filepfad extrahiert?
mit STRPOS findet man ja nur den ersten "\"....

gibts da was fertiges?

gibts da was fertiges?

Ja, nebennan: <http://perldoc.perl.org/File/Basename.html>

Die findest du in Timos Codeunits viewtopic.php?f=20&t=4001, Funktion ExtractFilename.

Oder im WSH FileSystemObject, Methode GetFileName.

Schau dir mal die Funktion GetPathandFile aus der Zahlungsverkehreinrichtung an.

danke schön.....

aus Timos Fob file der Zweizeiler tuts super...

WHILE STRPOS(FullFilename,'\') <> 0 DO
FullFilename := COPYSTR(FullFilename,STRPOS(FullFilename,'\') + 1)

was mir fehlt ist noch, wie man directories anlegt....da steht leider nichts drin und ich würde zusätzlich zum File-Copy auch Directories anlegen können...

Nochmal WSH FileSystemObject, Methode CreateFolder.

WHILE STRPOS(FullFilename,'\') <> 0 DO
FullFilename := COPYSTR(FullFilename,STRPOS(FullFilename,'\') + 1)

Und was machst Du, wenn fullfilename ein Verzeichnis ist?

Im übrigen tät ich am Ende von fillfilename anfangen und das erste '\' suchen.