Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi