Das aktuelle Arbeitsverzeichnis kann mit CurrentDirectory gelesen bzw. gesetzt werden.
Option Explicit Dim wso Set wso = WScript.CreateObject("WScript.Shell") wso.CurrentDirectory = "c:\windows\" 'Ordner muss existieren, sonst Fehlermeldung MsgBox wso.CurrentDirectory wso.run "%comspec%"