フォルダのみを選択

Const WINDOW_HANDLE = 0

Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.BrowseForFolder _

    (WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")

If objFolder Is Nothing Then

    Wscript.Quit

End If

Set objFolderItem = objFolder.Self

objPath = objFolderItem.Path

'Wscript.Echo objPath

'http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/jun05/hey0617.mspx