老太脱裤子让老头玩xxxxx,中文字幕无码中文字幕有码在线

logfile = "C:\EmptyDelete.log"

set logbook = objfso.OpenTextFile(logfile, 8, true)

Call CheckDiskFile(getdrv,ext)

logbook.Close

WshShell.Popup "檢查完畢！" & vbCrLf & "(c) Zero 2014",5, "謝謝使用",vbInformation+vbokOnly

Case 2: '搜索空文件夾

getdrv = InputBox("請(qǐng)輸入需要處理的盤符"& "格式如下:E","盤符","E")
getdrv = getdrv & ":\"
logfile = "C:\EmptyDelete.log"
set logbook = objfso.OpenTextFile(logfile, 8, true)

set drive = objfso.GetDrive(getdrv)

CheckFolder drive.RootFolder

logbook.Close

WshShell.Popup "檢查完畢！" & vbCrLf & "(c) Zero 2014",5, "謝謝使用",vbInformation+vbokOnly

select

Else If confirm= vbno Then
MsgBox "你會(huì)回來的！" & vbCrLf & "(c) Zero 2014" , vbOKOnly+ vbError,"提示"

WScript.Quit

If

If

'/// 主程序部分結(jié)束

'/// /////////////////////////////////////////////檢查空文件部分開始////////////////////////

Function CheckDiskFile(drv,ext)
extTemp = ext

On Error Resume Next
Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")

Set drvRootFiles = fso.GetFolder(drv)

Set files = drvRootFiles.Files

For Each file In files

IsEmptyFile file,extTemp

Next

Set subfoldertemp = fso.GetFolder(drv)

Set subfolders = subfoldertemp.SubFolders

For Each subfolder In subfolders

CheckDiskFile subfolder,extTemp '遞歸

Next

Function

'/// 測(cè)試是否為空文件
Sub IsEmptyFile(file,ext)

OnError Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

extFile = fso.GetExtensionName(file)

If file.Size = 0 And extFile = extThen

ReportEmpty file

If

Sub

'/// 寫入日志文件
FunctionReportEmpty(file)
On Error Resume Next

response = MsgBox("我們?cè)?quot; & vbCr & file.Path & "發(fā)現(xiàn)了空文件," &_
"你想刪除嗎？", vbYesNo + vbDefaultButton1,"提示")

If vbyes = response Then

logbook.WriteLine vbCrLf
logbook.WriteLine "[文件:]"

logbook.WriteLinefile.Path & vbCrlf & " 在 " & Now & " 被刪除"
objfso.DeleteFile file, True

end If

Function

'/// /////////////////////////////////////////////檢查空文件部分結(jié)束////////////////////////

'/// /////////////////////////////////////////////檢查空文件夾部分開始//////////////////////

sub CheckFolder(folderobj)

on error resume Next

isEmptyFolder folderobj

for each subfolder in folderobj.subfolders

CheckFolder subfolder

Next

end Sub

sub isEmptyFolder(folderobj)

on error resume Next

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

if folderobj.subfolders.Count=0 Then

ReportEmptyFolder folderobj

end If

end If

end Sub

sub ReportEmptyFolder(folderobj)

on error resume next

lastaccessed = folderobj.DateLastAccessed

on error goto 0

response = MsgBox("我們?cè)?" & vbCr _
& folderobj.path & vbCr & "發(fā)現(xiàn)了空文件夾 " & "文件夾最后訪問時(shí)間:" _
& vbCr & lastaccessed & vbCr _
& "你想刪除這個(gè)文件夾么?", _
vbYesNoCancel + vbDefaultButton2)

if response = vbYes Then

logbook.WriteLine "[文件夾:]"

以上關(guān)于本文的內(nèi)容，僅作參考！溫馨提示：如遇健康、疾病相關(guān)的問題，請(qǐng)您及時(shí)就醫(yī)或請(qǐng)專業(yè)人士給予相關(guān)指導(dǎo)!

「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容，希望對(duì)您有所幫助：

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！( 三 )

vbs實(shí)用代碼 vbs代碼，純自己采集，絕對(duì)良心！( 三 )