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