Shellオブジェクト


フォルダ参照ダイアログでフォルダを選択する (BrowseForFolder メソッド)


'//フォルダ参照ダイアログでフォルダを選択する
Dim objShell, objFo
Dim strPath
Set objShell = WScript.CreateObject("Shell.Application")
Set objFo = objShell.BrowseForFolder(0,_
    "フォルダを選択して下さい",&h11)
If (objFo Is Nothing) Then
    WScript.Quit
End If
strPath = objFo.Items.Item.Path

戻る