VBS (VBScript) でダイアログからファイルを選択する

VBSでファイルを選択して値を取得したいのですが、うまくいきません。
(エラー１)
（なお、ダイアログ画面でキャンセルを押しても、２のエラーになります）
Excel がインストールされていない環境を想定しています。
下記方法で可能でしょうか。よろしくお願いします。

VBS
1Dim shell
2Set shell = CreateObject("Shell.Application")
3Set fileName =  Shell.BrowseForFolder(&O0, "ファイルを選んでください", &H10 + &H4000, "C:\"  )
4If Not filename Is Nothing Then MsgBox fileName.Items.Item.Path
5If fileName = "False" Then WScript.Quit

＜エラー１＞
スクリプト:C:\Local\test.vbs
行: 3
文字: 1
エラー: エラーを特定できません
コード: 80004005
ソース: (null)

＜エラー２＞
スクリプト:C:\Local\test.vbs
行: 5
文字: 1
エラー: オブジェクト型の変数は設定されていません。
コード: 800A005B
ソース: Microsoft VBScript 実行時エラー

okakemetal

2022/09/27 01:08

IEの機能を使用したパターンですご参考まで https://nkb.hatenablog.com/entry/20200704/1593831099

nkym771

2022/09/27 11:48

ありがとうございます。

行動規範の内容に同意します

回答1件

ベストアンサー

BrowseForFolder の iOptions に BIF_BROWSEINCLUDEFILES(&h4000) を指定するやり方は、昔はできてたみたいですが、私の環境(Windows 10)でも動かないようです。
フォルダを選択すると大丈夫ですが、ファイルを選択すると、エラー１と同様のエラーが出ます。

「ファイル選択ダイアログ」
https://www.ka-net.org/blog/?p=118

に、VBS で使用できるファイル選択ダイアログの一覧があるので、使えるものを使っていくしかないんでしょうね。
VB.NET あたりで COM を作るのもいいかもしれません。

投稿2022/09/27 00:49