Beispiel: Es soll aus einem absoluten Pfad der Dateiname herausgeschnitten werden.
Diese Anforderung stellt sich oft bei der Verwendung von object.Files .
Es liefert meist etwas wie „C:\Dir1\Dir2\Dir3\Dateiname.Ext“ .
Wie kann man aus diesem String den Dateinamen herausschneiden?
a) Split den String an „\“ in ein Array
b) ermittle das letzte Element des Array mit der Funktion UBound

1
2
3
4
5

Set objFolder = objFSO.GetFolder("C:\Dir1\Dir2\Dir3")
For Each absFilePath in objFolder.Files
 arrFile = split(absFilePath,"\")
 FileName = arrFile(UBound(arrFile))
Next

liefert aus „C:\Dir1\Dir2\Dir3\Dateiname.Ext“ -> „Dateiname.Ext“

Schneetreiben – Arbeit am Gleis in Düsseldorf-Derendorf