Inhaltsverzeichnis
Dieses kurze Tutorial zeigt, wie Sie die GetFileName-Methode des FileSystemObject verwenden.
Dateinamen mit VBA FileSystemObject abrufen
Diese Lektion verwendet das FileSystemObject. Um es zu verwenden, müssen Sie einen Verweis auf die VB-Skript-Laufzeitbibliothek festlegen. Weitere Informationen finden Sie hier.
Um den Dateinamen aus einem beliebigen Pfad zu erhalten, können Sie Folgendes verwenden:
| 123456789101112 | Unter FSOGetFileName()Dim FileName As StringDim FSO als neues FileSystemObjectFSO setzen = CreateObject("Scripting.FileSystemObject")'Dateinamen abrufenFileName = FSO.GetFileName("C:\ExamplePath\ExampleFile.txt")'Dateinamen ohne Erweiterung abrufenFileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)End Sub |
Die Variable FileName enthält dann den Wert von „ExampleFile.txt“, die Variable FileNameWOExt hat die Erweiterung „ExampleFile“.
Dateinamen ohne Erweiterung abrufen
Wie oben erwähnt, verwenden Sie diese Codezeile, um den Dateinamen ohne Erweiterung zu erhalten:
| 1 | FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1) |
