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> 8-)

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.