« 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。 | トップページ | 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。(その3) »

2007年8月13日 (月)

「検索」「ファイルやフォルダ」を開いて検索条件をセットする。(その2)

日本語が通るウィンドウ アプリ版のSendKeys.exeを使えば。

L="C:\Documents and Settings\Default User\デスクトップ"
O="*.txt"
W="日本語"
Set wShell=CreateObject("WScript.Shell")
Set Shell=CreateObject("Shell.Application")
Shell.FindFiles
Do While Not wShell.AppActivate("検索結果")
  WScript.Sleep 100
Loop
wShell.Run "SendKeys.exe %l%l" & L & "%o" & O & "%w" & W

クリップボードを貼り付けるより単純です。

検索を開始するなら、最後に%r。

« 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。 | トップページ | 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。(その3) »