VBS: aktuelles Verzeichnis

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory
WshShell.CurrentDirectory = "c:\"
WScript.Echo WshShell.CurrentDirectory