你是不是在磁盘中建立了很多空的文件或文件夹？
你是不是在搜索它们并删除而在发愁？
有了以下这个小程序就可以帮助你解决！
请将以下代码用记事本保存为“找出本地磁盘中空的东西并删除.VBS” 文件！ 请（不）注（要）意（说）扩（不）展（会）名哦！
代码如下：（也可以关注微信公众号”vbs_edit"回复024获取）
Dim objfso, WshShell, ext
Set objfso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = CreateObject("Wscript.Shell")
choices = "1.删除空的文档" & vbCr & "2.删除空的文件夹" & vbCr & "3.退出"
prompt = "日志文档保存在 " & "C:\EmptyDelete.log" & vbCrLf & vbCrLf & "单击是(开始)，否(退出)！" & vbCrLf & vbCrLf &_
" ——VBS脚本之家"
confirm = msgbox("本小工具将在本地磁盘上搜索空的东西(文件夹和文件)!" & vbCr & prompt, vbYesNo vbInformation vbdefaultbutton1,"欢迎使用！")
If confirm = vbyes Then
MsgBox "不建议在C盘和D盘使用，错误删除与本作者无关——VBS脚本之家" , vbOKOnly vbExclamation ,"提示"
do
getchoice = InputBox ("请输入需要处理的事项:" & vbCr & choices)
if isnumeric(getchoice) then
↓ 输入需要处理的事项
↓ 输入需要清理的磁盘
↓ 是否清理
打开C:\EmptyDelete.log文件，可以看到我们刚才的删除记录
是不是很方便呢！
欢迎关注微信公众号“vbs_edit"（VBS脚本之家），学习更多关于VBS脚本知识。也可以加入我们新建立的”VBS脚本技术交流群“QQ群：572132075，欢迎广大网友加入。
,
