VBA – Dateinamen mit GetFileName (FSO) abrufen

In diesem kurzen Tutorial zeigen wir Ihnen, wie Sie die GetFileName-Methode des FileSystemObjects verwenden können.

Abrufen von Dateinamen mit VBA-FileSystemObject

In dieser Lektion wird das FileSystemObject verwendet. Um es verwenden zu können, müssen Sie einen Verweis auf die VB-Skript-Laufzeitbibliothek setzen.

Um den Dateinamen von einem beliebigen Pfad abzurufen, können Sie Folgendes verwenden:

Sub FSO_DateinamenAbrufen()
    Dim Dateiname As String
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject") 

    'Den Dateinamen abrufen
    Dateiname = FSO.GetFileName("C:\Beispielpfad\Beispieldatei.txt")
    
    'Den Dateinamen ohne Erweiterung abrufen
    DateinameOhneErw = Left(Dateiname, InStr(Dateiname, ".") - 1)

End Sub

Die Variable Dateiname enthält dann den Wert „Beispieldatei.txt“ und die Variable DateinameOhneErw ist ohne die Erweiterung, d. h.  sie erhält den Wert „Beispieldatei“.

Den Dateinamen ohne Erweiterung abrufen

Wie oben erwähnt, können Sie den Dateinamen ohne Erweiterung mit dieser Codezeile abrufen:

DateinameOhneErw = Left(Dateiname, InStr(Dateiname, ".") - 1)