VBScriptでフォルダ参照ダイアログを表示したい
HTMLファイルの中にVBScriptを記述しています。
内容はボタンが押されたら、フォルダ参照のダイアログ
ボックスを表示したいのです。
開発環境は windows2000 IE6.02
スクリプトのところは以下のように記述しています。
Function Getfolder()
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
End Function
で、Set objFolder = Shell.BrowseForFolder(0, "フォルダを選択してね!", 1)
のところで「書き込みできません」のエラーが表示されてしまいます。
どのようにすればフォルダ参照のダイアログボックスを表示できるのでしょうか?