你是不是在磁盤中建立了很多空的文件或文件夾?
你是不是在搜索它們并删除而在發愁?
有了以下這個小程序就可以幫助你解決!
請将以下代碼用記事本保存為“找出本地磁盤中空的東西并删除.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,歡迎廣大網友加入。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!