Thomas Risi Softwareentwicklung

GetFilePath

In dieser Funktion wird der Pfad aus einem vorgegebenen Dateipfad ermittelt.

Option Explicit Public Function GetFilePath(Pfad As String) As String Dim myPath As String Do While Right(Pfad, 1) <> "\" myPath = Right(Pfad, 1) & myPath Pfad = Left(Pfad, Len(Pfad) - 1) Loop GetFilePath = Pfad End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)