Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 09.11.00 |
Dateinamen extrahieren Die nachfolgende Routine ermittelt den reinen Dateinamen aus einer kompletten Pfadangabe und gibt diesen zurück. | ||
Autor: Dieter Otter | Bewertung: | Views: 32.586 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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"