Mit diesem Konstrukt kann der eingene Dateipfad des Scriptes ausgelesen werden.
Option Explicit
Dim sPath
'Scriptpfad
sPath = Replace(WScript.ScriptFullName ,WScript.ScriptName, vbNullString)
MsgBox sPath
Oder
Option Explicit
Dim sPath
'Scriptpfad
sPath = WScript.ScriptFullName
sPath = Left(sPath , Len(sPath) - Len(WScript.ScriptName))
MsgBox sPath
Oder
Option Explicit
Dim fso, scriptFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set scriptFile = fso.GetFile(WScript.ScriptFullName)
MsgBox scriptFile.ParentFolder
Ganz im Gegensatz liefert Path den Pfad zum Programm (wscript or cscript) welche das Script ausführt
WScript.Echo "Pfad zur WSH ist :=", WScript.Path