Beschreibung
Um aus einem Dateinamen inkl. Pfad Angabe nur den Pfad zu bekommen, ist die nachfolgende Funktion entstanden.
Parameter
Paramter Name | Parameter Wert |
---|---|
strFullPath | Dateiname inkl. Pfad |
Rückgabe
Rückgabe Typ | Rückgabe Wert |
---|---|
String | Den Pfad der Datei |
Beispiel
debug.Print GetPathFromFullPath("C:\daten\backup\wurstbrot.txt") C:\daten\backup\
Code
Public Function GetPathFromFullPath(strFullpath As String) As String Dim intRight As Integer intRight = InStrRev(strFullpath, "\") If intRight > 0 Then GetPathFromFullPath = Left(strFullpath, intRight) Else GetPathFromFullPath = "" End If End Function
Download

VBA GetPathFromFullPath
1 Datei(en) 0.26 KB