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:	Views:  14.347
gadgets.hemken.org	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.