[フォルダ選択ダイアログを表示する]

フォルダ選択ダイアログを表示します。
初期表示されるフォルダを、色々と変更しています。

【ソースコード】

[tips0124.vbs]
Option Explicit
On Error Resume Next

Dim objShell    ' Shell オブジェクト
Dim objFolder   ' フォルダ情報

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    Set objFolder = objShell.BrowseForFolder(0, "通常", 0)
    If Not objFolder Is Nothing Then
        WScript.Echo objFolder.Items.Item.Path
    End If

    Set objFolder = objShell.BrowseForFolder(0, "Ｃドライブ", 0, "C:\")
    If Not objFolder Is Nothing Then
        WScript.Echo objFolder.Items.Item.Path
    End If

    Set objFolder = objShell.BrowseForFolder(0, "スタートメニュー", 0, &HB)
    If Not objFolder Is Nothing Then
        WScript.Echo objFolder.Items.Item.Path
    End If
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objFolder = Nothing
Set objShell = Nothing

【実行結果】

C:\> cscript //NoLogo tips0124.vbs
D:\Temp
C:\Temp
C:\Documents and Settings\Administrator\スタート メニュー\プログラム