« 最小化や非表示で起動できるPowerShellスクリプトファイル(.PS1) | トップページ | 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。(その2) »

2007年8月13日 (月)

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

固定の条件なら、「条件条件を保存(A)」で.FNDファイルを作ればよいのですが、
可変の条件の場合は、どうするか?

クリップボードに入れて、WScript.ShellのSendKeys("^v")で貼り付ける?

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
Set uf=CreateObject("Forms.Form.1")
Set tb=uf.Controls.Add("Forms.TextBox.1").Object
tb.MultiLine=True
PutText L
WScript.Sleep 100
wShell.SendKeys "%l%l^v"
WScript.Sleep 100
PutText O
WScript.Sleep 100
wShell.SendKeys "%o^v"
WScript.Sleep 100
PutText W
WScript.Sleep 100
wShell.SendKeys "%w^v"

Sub PutText(Text)
tb.Text=Text
tb.SelStart=0
tb.SelLength=tb.TextLength
tb.Copy
End Sub

貼り付け箇所が複数なので、タイミングが微妙です。

« 最小化や非表示で起動できるPowerShellスクリプトファイル(.PS1) | トップページ | 「検索」「ファイルやフォルダ」を開いて検索条件をセットする。(その2) »