用vbs刪除前一天創(chuàng)建的備份文件

2020-07-26 12:01:52

字體：大中小

供稿：網(wǎng)友

問：
您好，腳本專家！有一個程序每天都會創(chuàng)建一個具有類似于以下名稱的文件：backup_20050607.bak。如何才能刪除前一天的文件呢？
-- JC
答：
您好，JC。嗯，可以調(diào)用一個腳本自動刪除前一天產(chǎn)生的任何文件。伙計，就在幾周前我們曾用過一個類似這樣的腳本！
是的，我們還有印象。但往事不能重提。
除此之外，我們還要在此寫一個專欄。您需要一個腳本來刪除名如 backup_20050607.bak（其中，20050607 表示前一天，在本例中即為 2005 年 6 月 7 日）的文件，對嗎？您需要做的一切就是使用：

復(fù)制代碼代碼如下:

dtmYesterday = Date - 1  
strYear = Year(dtmYesterday)  
strMonth = Month(dtmYesterday)  
If Len(strMonth) = 1 Then  
    strMonth = "0" & strMonth  
End If  
strDay = Day(dtmYesterday)  
If Len(strDay) = 1 Then  
    strDay = "0" & strDay  
End If  
strYesterday = strYear & strMonth & strDay  
strFileName = "C:/Backups/backup_" & strYesterday & ".bak"  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
objFSO.DeleteFile(strFileName) 

您可能已經(jīng)料道，這里最為棘手的部分就是構(gòu)建文件名；有了文件名后，刪除文件就是小事一樁了。那么，我們該如何構(gòu)建該文件名呢？
對，文件名中每天都會發(fā)生變化的那一部分就是表示備份文件生成日期的那個部分。也就是說，我們所要做的全部事情就是構(gòu)建文件名的這個部分，其它部分可以采用硬編碼來加入。因此，我們需要從確定前一天的日期開始，這可通過將當(dāng)前日期減去一，然后該值存入一個名為 dtmYesterday 的變量來完成：
dtmYesterday = Date - 1
接下來，使用 Year 函數(shù)從 dtmYesterday 取得四位數(shù)字的年份值（例如 2005）；該值將被存儲在變量 strYear 中。緊接著使用 Month 函數(shù)從 dtmYesterday 取得月份值。
但是請注意，對于月份值須得另外再進(jìn)行一些編碼（對于日期也是如此）。為什么呢？是這樣，假定我們所處理的是六月份。此時，Month 函數(shù)將返回值 6。這并沒有什么問題，只不過在我們的文件名中為月份分配了兩位數(shù)字；需要將月份以 06 形式列出。因此，我們必須確定所得到的月份是一位數(shù)字還是兩位數(shù)字。如果是一位數(shù)字的月份，則必須在數(shù)字前面加零。我們就是象下面這樣做的：
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
這段代碼真的是一目了然。Len（長度）函數(shù)會告訴我們 strMonth 變量中有多少位數(shù)字。如果只有 1 位，則添加前導(dǎo) 0：
strMonth = "0" & strMonth
如果長度為 1 之外的任何值，則只需保持原樣即可。
取得月份值后，用函數(shù) Day 重復(fù)同一過程，以便能檢索出日期的天部分。該值將被存儲在巧妙命名的變量 strDay 中。
這樣便提供了我們構(gòu)建文件名所需的全部數(shù)據(jù)。為此，首先要使用下面這行代碼將年月日合在一起（得到類似 20050607 的字符串）：
strYesterday = strYear & strMonth & strDay
然后，只需附加其余的路徑信息（在本例中，假定文件存儲在文件夾 C:/Backups 下）：
strFileName = "C:/Backups/backup_" & strYesterday & ".bak"
如您所見，我們只需將字符串 C:/Backups/backup_、所構(gòu)建的日期 (20050607) 以及 .bak 合并起來即可。將它們組合在一起之后將會得到類似下面的結(jié)果：
C:/Backups/backup_20050607.bak
很酷吧。
然后，我們將使用下面這兩行代碼創(chuàng)建一個 FileSystemObject 實(shí)例并刪除文件：
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strFileName)
由于使用了 FileSystemObject，由于使用了 FileSystemObject，所以這一腳本只能在本地機(jī)上運(yùn)行。但如果備份文件位于遠(yuǎn)程計算機(jī)上，該怎么辦呢？沒問題，此時可以使用 WMI 找到并刪除該文件。那么，為什么不最先就使用 WMI 呢？是這樣，F(xiàn)ileSystemObject 用不了一秒鐘就能找到并刪除文件，而 WMI 所需的時間則稍長一些。我們決定以速度和效率為先。
但正如我們所說的，如果文件位于遠(yuǎn)程計算機(jī)上，則速度和效率并不會給您帶來太多好處。幸運(yùn)的是，在這種情況下可以使用 WMI 腳本刪除文件。以下腳本（今天暫且不對其進(jìn)行討論）將從名為 atl-fs-01 的遠(yuǎn)程計算機(jī)上刪除備份文件：

復(fù)制代碼代碼如下:

dtmYesterday = Date - 1  
strYear = Year(dtmYesterday)  
strMonth = Month(dtmYesterday)  
If Len(strMonth) = 1 Then  
    strMonth = "0" & strMonth  
End If  
strDay = Day(dtmYesterday)  
If Len(strDay) = 1 Then  
    strDay = "0" & strDay  
End If  
strYesterday = strYear & strMonth & strDay  
strFileName = "C://Backups//backup_" & strYesterday & ".bak"  
strComputer = "."  
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")  
Set colFiles = objWMIService.ExecQuery _  
    ("Select * from CIM_DataFile where Name = '" & strFileName & "'")  
For Each objFile in colFiles  
    objFile.Delete  
Next 

就像這樣，昨天已逝，我們可以全都裝作它從未發(fā)生過一樣。對嗎，老板？
注意：難道就不能省去這一切麻煩，簡單地刪除所有創(chuàng)建/修改日期等于前一天日期的文件嗎？可以，只要該文件夾中決不會存在具有相同日期因而可能會被意外刪除的任何其他文件就行。綜合考慮各種因素，上述做法似乎是最為安全的。

上一篇：不錯的一篇VBS-JSCRIPT GETOBJECT理解

下一篇：用vbs從本地 Administrators 組中刪除組