VBS (VBScript) で

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

VBS

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

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

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