Puoi usare il metodo CurrentDirectory dell'oggetto WScript.Shell:
codice:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
MsgBox WshShell.CurrentDirectory 'Visualizza la directory corrente