[ファイルとフォルダの検索を開く]

『ファイルとフォルダの検索』画面を開きます。

【ソースコード】

[tips0129.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    objShell.FindFiles
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objShell = Nothing