利用vbscript清理C盘大文件

最新推荐文章于 2023-09-23 19:31:42 发布

徐长亮

最新推荐文章于 2023-09-23 19:31:42 发布

阅读量559

点赞数

本文链接：https://blog.csdn.net/clark_xu/article/details/83060884

版权

本文介绍了一种利用VBScript遍历C盘（或其他指定目录），查找并记录大于特定大小（如100M）的文件的方法。找到的大文件信息会被保存到Excel表格中，但目前代码仍有待完善。

摘要由CSDN通过智能技术生成

思路是：

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&#