'掃描文件
sub scan(folder_)
Set fso=createobject("scripting.filesystemobject")
set folder_=fso.getfolder(folder_)
set files=folder_.files
'遍歷路徑中的文件
for each file in files
?ext=mid(file,InStrRev(file, ".")+1)
?ext=lcase(ext)
?if ext=kuozhan then
??all_file=all_file+file+Chr(13) & Chr(10)
?end if
next
'遍歷路徑子文件夾
set subfolders=folder_.subfolders
for each subfolder in subfolders
?scan(subfolder)
next
end sub

'出錯繼續運行
on error resume next

'填寫數據
path=inputbox("輸入路徑","路徑")
kuozhan=inputbox("輸入想要搜索文件的擴展名","擴展名")

'調用掃描
Set fso=createobject("scripting.filesystemobject")
all_file=""
scan(path)

'新建文件list.txt并寫入數據
set self=fso.opentextfile(wscript.scriptfullname,1)
vbscopy=all_file
fso.CreateTextFile ("list.txt")
set ap=fso.opentextfile("list.txt",2,true)
ap.write vbscopy
ap.close

'彈出提示窗口
Wscript.echo "完成任務！"

'用記事本打開數據文件
set c_run=WScript.CreateObject("WScript.Shell")
c_run.run "notepad list.txt"

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的获取所有某格式文件到文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。