05/02/26 23:09:58
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
Set Shell=Wscript.CreateObject("Shell.Application")
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください")
MsgBox f.Items.Item.Path '選択したフォルダ名を表示
これを試してみると、２行目、文字１で、引数の数が一致していません。または不正なプロパティをしていしています。
'Shell.BrowseForFolder' コード、800A01C2 ソース、VBScript 実行時エラー
となってしまいます。