Seite 1 von 1
Dateinamen extrahieren
Verfasst: 13. Mai 2013 11:56
von Pegasus
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?
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 12:06
von Markus Merkl
Pegasus hat geschrieben:gibts da was fertiges?
Ja, nebennan: <http://perldoc.perl.org/File/Basename.html>
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 12:06
von Natalie
Die findest du in Timos Codeunits
viewtopic.php?f=20&t=4001, Funktion ExtractFilename.
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 12:14
von McClane
Oder im WSH FileSystemObject, Methode GetFileName.
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 12:24
von HattrickHorst
Schau dir mal die Funktion GetPathandFile aus der Zahlungsverkehreinrichtung an.
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 13:04
von Pegasus
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...
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 13:10
von McClane
Nochmal WSH FileSystemObject, Methode CreateFolder.
Re: Dateinamen extrahieren
Verfasst: 13. Mai 2013 13:25
von Markus Merkl
Pegasus hat geschrieben: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.