VBScript – letztes Element in einem String-Array

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“

 

Schneetreiben1

Schneetreiben – Arbeit am Gleis in Düsseldorf-Derendorf

 


Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.