Dateinamen extrahieren III Dieser Tipp zeigt, wie man mit Hilfe der FileSystemObject-Bibliothek den reinen Dateinamen einer kompletten Pfadangabe ermitteln kann.
Autor:   Dennis Hemken	Bewertung:     [ Jetzt bewerten ]	Views:  14.774
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 56 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um den Dateinamen einer Datei zu ermitteln, kann man das FileSystemObject benutzen. Hierzu braucht man lediglich einen Verweis auf die Microsoft Scripting Runtime-Bibliothek (Scrrun.dll) festlegen.

Nachfolgend der Code, mit der sich der Dateiname ermitteln lässt.

' Dateinamen ermitteln
Public Function GetFileName(ByVal sPathFile As String) As String
  ' bei sPathFile handelt es sich um den Dateinamen,
  ' inkl. Pfadnamen (Bsp.: D:\lollo\test.doc)
  Dim objFso As FileSystemObject
  Dim objFile As File
 
  Set objFso = New FileSystemObject
  Set objFile = objFso.GetFile(sPathFile)
 
  ' FileName enthält dann bspw. den Text "test.doc"
  GetFileName = objFile.Name
 
  Set objFile = Nothing
  Set objFso = Nothing
End Function