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