ダイアログからフォルダを開く

&h40の部分を&h4000に変えるとファイルを開けるようになるのだが、エラーになる場合がある。（原因は不明）
その後の0を変えると表示されるツリーが変わる。（例えば5だとMy Documentsのツリーになった）

option explicit
dim sap, bff, wss
set sap = createobject("shell.application")

'&h4000にするとファイル選択、最後の0を5にするとMy Documentsだけのツリー表示になる。
set bff = sap.browseforfolder(0, "OPEN", &h40, 0)

    if not bff is nothing then
        set wss = createobject("wscript.shell")
        wss.run """" & bff.items.item.path & """"
    end if
set bff = nothing
set sap = nothing
set wss = nothing

&H40の部分のその他の例
URLを憶えていないが検索して見付けた資料

&H1 'ファイルシステムのフォルダ(仮想フォルダ以外)のみが選択できる。
&H2 'ドメイン下のネットワークフォルダを含めない。
&H4 'WSHからは意味なし(サイズがちょっと変わる)。
&H8 'マイネットワーク内のコンピュータのみ選択できる。
&H10 'フォルダ名を指定する、テキストボックスも表示。
&H20 'テキストボックスの妥当性チェック。WSHからは意味なし。
&H40 'Win2000からの新しいダイアログを表示
&H50 '&H10 + &H40
&H80 'URLの選択ができる。&H50と併用。
&H100 'テキストボックスにヒントを表示。&H40と併用。
&H1000 'コンピュータの検索。
&H2000 'プリンタの検索。
&H4000 'ファイルも選択できるようになる。
&H8000 '共有も選択できるようになる

その後に続く数字（ツリー表示する場所）

0 '通常
1 'InternetExplorer？
2 'プログラム
3 'コントロールパネル
4 'プリンタ
5 'My Documents
6 'お気に入り
7 'スタートパップ
8 'Recent（最近使ったファイル）
9 'SendTo（送る）
10 ,ごみ箱
11 'スタートメニュー

数字の替わりにパスを記入してもいいみたいだ。