「VBScript」の編集履歴(バックアップ)一覧はこちら
「VBScript」(2009/07/20 (月) 15:56:46) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.BrowseForFolder(0, "フォルダの選択", 1)
if objFolder is Nothing then
Msgbox("フォルダを選択してください")
else
Msgbox(objFolder.Items.Item.Path)
end if
--------- フォルダのセレクション ----------
Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.BrowseForFolder(0, "フォルダの選択", 1)
if objFolder is Nothing then
Msgbox("フォルダを選択してください")
else
Msgbox(objFolder.Items.Item.Path)
end if