VBS Sample Source with Shell Object

フォルダ参照ダイアログBrowseFolderDialog

'-----------------------------------
'BrowseForFolder()メソッドの使用例
'-----------------------------------

' フォルダ選択ダイアログのオプション定数
Const BIF_RETURNONLYFSDIRS = &H1

Dim objShell
Dim objFolder

    Set objShell = CreateObject("Shell.Application")

    ' フォルダ選択ダイアログを表示
    Set objFolder = _
            objShell.BrowseForFolder(0, _    '呼び出しもとのhWnd
                "フォルダを選択してください。", _
                BIF_RETURNONLYFSDIRS)
    Set objShell = Nothing

    ' 選択内容を取得
    If Not objFolder Is Nothing Then
        Wscript.Echo objFolder.Items.Item.Path
        Set objFolder = Nothing
    End If

右クリックメニューContextMenu

'-----------------------------------
'NameSpace()メソッドの使用例
'-----------------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    'ファイルのプロパティの例
    objShell.NameSpace(FILENAME).ParentFolder.ParseName(objShell.NameSpace(FILENAME).Title).InvokeVerb "プロパティ(&R)"
    
    'フォルダのプロパティの例
    'objShell.NameSpace(DIR_NAME).Items.Item.InvokeVerb "プロパティ(&R)"
    
    'コントロールパネルの例
    'For Each objItem In objShell.NameSpace(3).Items
    'If objItem.Name="マウス" Then objItem.InvokeVerb
    'Next

    Set objShell = Nothing

タスクバーコンテキストTaskbarsContext

重ねて表示

'-----------------------------------
'CascadeWindows()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.CascadeWindows
    Set objShell = Nothing

上下に並べて表示

'-----------------------------------
'TileHorizontally()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.TileHorizontally
    Set objShell = Nothing

左右に並べて表示

'-----------------------------------
'TileVertically()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.TileVertically
    Set objShell = Nothing

全ウィンドウを最小化

'-----------------------------------
'MinimizeAll()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.MinimizeAll
    Set objShell = Nothing

元に戻す

'-----------------------------------
'UndoMinimizeALL()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.UndoMinimizeALL
    Set objShell = Nothing

タスクバーのプロパティ

'-----------------------------------
'TrayProperties()メソッドの使用例
'-----------------------------------

Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.TrayProperties
    Set objShell = Nothing

コントロールパネルControlPanel

'------------------------------
'ControlPanelItem()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.ControlPanelItem(CPLファイルパス)
    Set objShell = Nothing

スタートメニューStart Menu

ファイルの検索

'------------------------------
'FindFiles()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.FindFiles
    Set objShell = Nothing

コンピュータの検索

'------------------------------
'FindComputer()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.FindComputer
    Set objShell = Nothing

ヘルプ

'------------------------------
'Help()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.Help
    Set objShell = Nothing

ファイル名を指定して実行ダイアログ

'------------------------------
'FileRun()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.FileRun
    Set objShell = Nothing

シャットダウンダイアログ

'------------------------------
'ShutdownWindows()メソッド
'-----------------------------
Dim objShell

    Set objShell = CreateObject("Shell.Application")
    objShell.ShutdownWindows
    Set objShell = Nothing