思路是:
1.轮询查找C盘(或者其他目录)的所有子目录及子文件夹
2.如果是文件,不是目录,则判断文件的大小,自定义阈值比如100M
3.满足条件的文件,将文件的绝对路径,文件名,文件大小,修改日期等,写入到excel中
注:还有很多缺陷没有做,后续更新,未完待续
dim xlsApp
dim xlsWorkBook
dim xlsSheet
dim fileapp
dim folderdir
dim folderobject
dim subfolderobject
dim filename
dim full_filename
dim subdirpath
dim i
dim clumns
dim rows
dim filesize
'初始化变量
clumns=1
rows=1
'wscriptExcel 对象
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.DisplayAlerts=False
'msgbox xlsApp.DisplayStatusBar
'createobject("Scripting.FileSystemObject").GetFolder(".").Path
scriptpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
filename=InputBox("[step 1] input the filename of excel xlsx file&#