Dateinamen extrahieren Die nachfolgende Routine ermittelt den reinen Dateinamen aus einer kompletten Pfadangabe und gibt diesen zurück.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  33.096
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Die nachfolgende Routine ermittelt den reinen Dateinamen aus einer kompletten Pfadangabe und gibt diesen zurück.

' Die nachfolgende Funktion ermittelt den reinen
' Dateinamen aus einem übergebenen Pfad
Public Function SplitFileFromPath(ByVal Pfad As String) _
 As String
 
  Dim File As String
 
  File = ""
  While right$(Pfad, 1) <> "\" And _
   right$(Pfad, 1) <> ":" And Pfad <> ""
    File = right$(Pfad, 1) + File
    Pfad = left$(Pfad, Len(Pfad) - 1)
  Wend
 
  SplitFileFromPath = File
End Function

Beispiel:
sFile = "c:\windows\system\command.com"
sName = SplitFileFromPath(sFile)

Ergebnis: sName = "command.com"