admin 在磁盘上创建了很多空文件或文件夹吗？
你担心搜索和删除它们吗？
可以通过以下小程序解决！
使用记事本找到“本地磁盘的空白部分”，然后输入以下代码：请保存为“删除VBS”文件！请参考(是)扩大(否)展示(会议)名称！
代码如下：(您也可以关注微信公众号“vbs_edit”的回答024。）
Dim objfso、WshShell和ext
set objfso=ws CRI(' Scri；)。
set wshshshell=create object(' w；)。
Choices='1。删除空白文档“vbCr”2。删除空文件夹“vbCr”3。“退出”
Prompt='日志文档为' ' C: \ EmVbCrLf单击“是(开始)、否(结束)”！VbCrLf vbCrLf _
" ——VBS脚本屋"
Confirm=msgbox('此小工具在本地磁盘上搜索空的(文件夹和文件)！'Vbcr prompt、vbyesno VB information VB default button 1、“欢迎使用！)。
If confirm=vbyes Then
“MsgBox”不建议使用CD和D光盘。错误地删除了与本作者无关的“——VBS脚本之家”、vbOKOnly vbExclamation和“提示”。
道
Getchoice=InputBox('输入需要处理的内容：' vbCr choices)
If isnumeric(getchoice) then
Exit do
Else
Msgbox“输入数字”
End If
循环(音乐)
Getchoice=CInt(getchoice)
Select Case getchoice
搜索“Case 1:”空文件
Getdrv=InputBox('需要处理的字符输入''格式如下： E:\ '、'字符'、' e ')
Getdrv=getdrv ':\ '
Ext=InputBox(请输入“要搜索的文件扩展名”。例如：“txt”、“扩展名”、“txt”)
Logfile=' C: \ Em
Set logbook=obj(日志文件，8，true)
Call CheckDiskfile(getdrv、ext)
Logbook。Close
w '检查完毕！'VB crlf《VBS脚本之家》，5，《谢谢使用》，vbInformation vbokOnly
搜索“Case 2:”空文件夹
Getdrv=InputBox('需要处理的字符输入''格式如下： E '、'字符'、' E ')
Getdrv=getdrv ':\ '
Logfile=' C: \ Em
Set logbook=obj(日志文件，8，true)
Set drive=obj(getdrv)
CheckFolder drive。RootFolder
Logbook。Close
w '检查完毕！'VB crlf《VBS脚本之家》，5，《谢谢使用》，vbInformation vbokOnly
End select
Else If confirm=vbno Then
MsgBox“我会回来的！”vbc rlf“VBS脚本之家”、vbOKOnly vbError和“提示”
WScri
End If
End If
Function CheckDiskFile(drv、ext)
ExtTemp=ext
On Error Resume Next
Dim fsoSet fso = WScri("Scri;)
Set drvRootFiles = (drv)
Set files = drvRoo
For Each file In files
IsEmptyFile file,extTemp
Next
Set subfoldertemp = (drv)
Set subfolders =
For Each subfolder In subfolders
CheckDiskFile subfolder,extTemp '递归
Next
End Function
Sub IsEmptyFile(file,ext)
On Error Resume Next
Set fso = CreateObject("Scri;)
extFile = (file)
If = 0 And extFile = ext Then
ReportEmpty file
End If
End Sub
Function ReportEmpty(file)
On Error Resume Next
response = MsgBox("我们在" & vbCr & & "发现了空文件," &_
"你想删除吗？", vbYesNo + vbDefaultButton1,"提示")
If vbyes = response Then
logbook.WriteLine vbCrLf
logbook.WriteLine "[文件:]"
logbook.WriteLine & vbCrlf & " 在 " & Now & " 被删除"
obj file, True
end If
End Function
sub CheckFolder(folderobj)
on error resume Next
isEmptyFolder folderobj
for each subfolder in
CheckFolder subfolder
Next
end Sub
sub isEmptyFolder(folderobj)
on error resume Next
if and err.Number=0 then
if .Count=0 Then
ReportEmptyFolder folderobj
end If
end If
end Sub
sub ReportEmptyFolder(folderobj)
on error resume next
lastaccessed =
on error goto 0
response = MsgBox("我们在:" & vbCr _
& & vbCr & "发现了空文件夹 " & "文件夹最后访问时间:" _
& vbCr & lastaccessed & vbCr _
& "你想删除这个文件夹么?", _
vbYesNoCancel + vbDefaultButton2)
if response = vbYes Then
logbook.WriteLine "[文件夹:]"
logbook.WriteLine & vbCrlf & " 在 " & Now & " 被删除"
elseif response=vbCancel Then
MsgBox "你选择了退出！谢谢使用" & vbCrLf & " VBS脚本之家"
WScri
end If
end Sub
↓双击运行效果
↓ 输入需要处理的事项
↓ 输入需要清理的磁盘
↓ 是否清理
打开C:\Em文件，可以看到我们刚才的删除记录
是不是很方便呢！
欢迎关注微信公众号“vbs_edit"（VBS脚本之家），学习更多关于VBS脚本知识。也可以加入我们新建立的”VBS脚本技术交流群“QQ群：572132075，欢迎广大网友加入。