DirectoryNameoutofPath

Function DirectoryNameoutofPath(sPath as String, Separator as String) as String

Liest den Pfad aus dem kompletten String mit dem Verzeichnis und dem Dateinamen. Achtung hier ist Angabe des Separators erforderlich.

OrgStr="c:\test\test.txt"

newstr=DirectoryNameoutofPath(Orgstr,"\")

Ergibt: NewStr="c:\test"