Pfad bzw. Dateiname aus komplettem Dateipfad ermitteln

Mit diesen beiden Funktionen können der Dateiname bzw der Dateipfad exrahiert werden.

Option Explicit

Dim s
Const CS = "c:\test\copy.log"

s = GetFileName_From_FilePath(CS)
WScript.Echo "Datei-Name: " & s

s = GetPath_From_FilePath(CS)
WScript.Echo "Pfad: " & s


'Funktionen
'-----------
Function GetFileName_From_FilePath(sFilePath$)
  sFilePath = Replace(sFilePath, "/" , "\")
  GetFileName_From_FilePath = Right(sFilePath, Len(sFilePath) - (InStrRev(sFilePath, "\")))
End Function

Function GetPath_From_FilePath(sFilePath$)
  sFilePath = Replace(sFilePath, "/" , "\")
  GetPath_From_FilePath = Left(sFilePath, InStrRev(sFilePath, "\"))
End Function

 

Hauptmenü

Anmeldeformular