set wantfind=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
dim r1,r2,r3
r1=inputbox("請輸入搜尋範圍","dir")
r2=inputbox("請輸入搜尋檔案","file","txt")
set f1=wantfind.opentextfile(trim(r1)&"/result.txt",2,1)
if not wantfind.folderexists(r1) then
msgbox "不存在此路徑"
else
tofind r1,r2
end if
public sub tofind(findpath,findfile)
dim myfile,mydir
set myfolder=wantfind.getfolder(findpath)
for each myfile in myfolder.files
if myfile.name=findfile then
msgbox "找到乙個檔案，位於"&myfile.path
f1.writeline(myfile.name&myfile.path)
end if
next
for each mydir in myfolder.subfolders
tofind mydir,findfile
next
end sub
整人vbs檔案
把以下內容複製到記事本，然後把檔案字尾改為 vbs 可以自行修改內容 wscript.echo 嘿，謝謝你開啟我哦，我等你很久拉！tsname wscript.echo 知道我誰不?wscript.echo 不知道啊，那想我嗎？wscript.echo 我想你了 wscript.echo 讓我們幸福...
VBS 檔案操作
vbs 檔案操作 對於檔案的操作，例如 生成乙個或者開啟乙個或者刪除乙個.txt格式檔案。雖然官方的file外掛程式提供了一些基本功能，但功能不多。你並不需要理解什麼是fso模版，什麼是vbs語句，直接套用下面的語句吧！紅色字為自己定義的部分，藍色字為任意選一部分 如果你看不懂，請參考下面的例子！操...
vbs檔案操作
最近遇到乙個應用，要求將指定資料夾下的所有 html 檔案中包含的某些文字的檔案給改名。下面是我寫的乙個 vbs 檔案 關鍵字配置檔案位址 const config e cleandata key.txt 要檢查的資料夾 const dir d log html 日誌儲存路徑 const logdi...