WSH Script-Pfad ermitteln |
|
Mit diesem Konstrukt kann der eingene Dateipfad des Scriptes ausgelesen werden.
Option Explicit
Oder
Dim sPath 'Scriptpfad sPath = Replace(WScript.ScriptFullName ,WScript.ScriptName, vbNullString) MsgBox sPath 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
|