tft每日頭條

 > 科技

 > vbs如何比對兩個文件夾内文件

vbs如何比對兩個文件夾内文件

科技 更新时间:2024-12-28 10:08:21

你是不是在磁盤中建立了很多空的文件或文件夾?

你是不是在搜索它們并删除而在發愁?

有了以下這個小程序就可以幫助你解決!

請将以下代碼用記事本保存為“找出本地磁盤中空的東西并删除.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

↓ 輸入需要處理的事項

vbs如何比對兩個文件夾内文件(利用VBS找出本地磁盤中空的文件)1

↓ 輸入需要清理的磁盤

vbs如何比對兩個文件夾内文件(利用VBS找出本地磁盤中空的文件)2

↓ 是否清理

vbs如何比對兩個文件夾内文件(利用VBS找出本地磁盤中空的文件)3

打開C:\EmptyDelete.log文件,可以看到我們剛才的删除記錄

vbs如何比對兩個文件夾内文件(利用VBS找出本地磁盤中空的文件)4

是不是很方便呢!

歡迎關注微信公衆号“vbs_edit"(VBS腳本之家),學習更多關于VBS腳本知識。也可以加入我們新建立的”VBS腳本技術交流群“QQ群:572132075,歡迎廣大網友加入。

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关科技资讯推荐

热门科技资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved