vbs代码，纯自己采集，绝对良心！( 四 ) _把以下将要展示的代码粘贴在

on error resume Next

if folderobj.Size=0 and err.Number=0 then

if folderobj.subfolders.Count=0 Then

ReportEmptyFolder folderobj

If

If

Sub

sub ReportEmptyFolder(folderobj)

on error resume next

lastaccessed = folderobj.DateLastAccessed

on error goto 0

response = MsgBox("我们在:" & vbCr _
& folderobj.path & vbCr & "发现了空文件夹 " & "文件夹最后拜候时候:" _
& vbCr & lastaccessed & vbCr _
& "您想删除这个文件夹么?", _
vbYesNoCancel + vbDefaultButton2)

if response = vbYes Then

logbook.WriteLine "[文件夹:]"

logbook.WriteLine folderobj.path & vbCrlf & " 在 " & Now & " 被删除"

folderobj.delete

elseif response=vbCancel Then

MsgBox "您选择了退出！感谢利用" & vbCrLf & "(c) Zero 2014"

WScript.Quit

If

Sub

23 此指南个体借鉴收集其他大神的作品并做了点窜!
在此不必全数提出。
感谢大师！

出格提醒小我堆集的代码，网上很多都是反复的。如内含有错误，接待大神们斧正！

以上内容就是vbs代码，纯自己采集，绝对良心！的内容啦，希望对你有所帮助哦！

vbs代码，纯自己采集，绝对良心！( 四 )

猜你喜欢