2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

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