11/06/29 01:29:47.55 8jxdRzM20
カレント以下を検索後、即仮想フォルダに入ろうと思ったがダメだった／(＾o＾)＼
// find.vbs
LANG: VBScript
Option Explicit
Dim wsh,input,cmdline,findexe,flag
findexe = "C:\cygwin\bin\find.exe"
Set wsh=Wscript.CreateObject("Wscript.Shell")
input = InputBox("カレント以降で検索したいファイル名を入力してください。(正規表現可)","find","*")
If input<>"" Then
cmdline = Afxw.Extract(findexe + " $P -iname '" + input + "' -fprintf find.sz7 '%p\r\n'")
flag = wsh.Run(cmdline,,True)
afxw.Exec("&EXCD -Pfind.sz7")
afxw.Exec("&S_ARC axpathlist.spi")
Else
afxw.MesPrint("検索文字列がありません。")
End If
afxw.MesOk()