WScript.Shell

CreateObject("WScript.Shell")

Dim objShell

Set objShell = CreateObject("WScript.Shell")

objShell.CurrentDirectory

Set objShell = Nothing

カレントディレクトリを表示するサンプルです。

実行するとき等のメソッドなどもあります。便利なオブジェクトですので使えるようにしたい所です。

MSDNのリファレンスはこちら