用vbs刪除前一天創(chuàng)建的備份文件
更新時(shí)間:2007年03月29日 00:00:00 作者:
問(wèn):
您好,腳本專(zhuān)家!有一個(gè)程序每天都會(huì)創(chuàng)建一個(gè)具有類(lèi)似于以下名稱的文件:backup_20050607.bak。如何才能刪除前一天的文件呢?
-- JC
答:
您好,JC。嗯,可以調(diào)用一個(gè)腳本自動(dòng)刪除前一天產(chǎn)生的任何文件?;镉?jì),就在幾周前我們?cè)眠^(guò)一個(gè)類(lèi)似這樣的腳本!
是的,我們還有印象。但往事不能重提。
除此之外,我們還要在此寫(xiě)一個(gè)專(zhuān)欄。您需要一個(gè)腳本來(lái)刪除名如 backup_20050607.bak(其中,20050607 表示前一天,在本例中即為 2005 年 6 月 7 日)的文件,對(duì)嗎?您需要做的一切就是使用:
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)建文件名;有了文件名后,刪除文件就是小事一樁了。那么,我們?cè)撊绾螛?gòu)建該文件名呢?
對(duì),文件名中每天都會(huì)發(fā)生變化的那一部分就是表示備份文件生成日期的那個(gè)部分。也就是說(shuō),我們所要做的全部事情就是構(gòu)建文件名的這個(gè)部分,其它部分可以采用硬編碼來(lái)加入。因此,我們需要從確定前一天的日期開(kāi)始,這可通過(guò)將當(dāng)前日期減去一,然后該值存入一個(gè)名為 dtmYesterday 的變量來(lái)完成:
dtmYesterday = Date - 1
接下來(lái),使用 Year 函數(shù)從 dtmYesterday 取得四位數(shù)字的年份值(例如 2005);該值將被存儲(chǔ)在變量 strYear 中。緊接著使用 Month 函數(shù)從 dtmYesterday 取得月份值。
但是請(qǐng)注意,對(duì)于月份值須得另外再進(jìn)行一些編碼(對(duì)于日期也是如此)。為什么呢?是這樣,假定我們所處理的是六月份。此時(shí),Month 函數(shù)將返回值 6。這并沒(méi)有什么問(wèn)題,只不過(guò)在我們的文件名中為月份分配了兩位數(shù)字;需要將月份以 06 形式列出。因此,我們必須確定所得到的月份是一位數(shù)字還是兩位數(shù)字。如果是一位數(shù)字的月份,則必須在數(shù)字前面加零。我們就是象下面這樣做的:
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
這段代碼真的是一目了然。Len(長(zhǎng)度)函數(shù)會(huì)告訴我們 strMonth 變量中有多少位數(shù)字。如果只有 1 位,則添加前導(dǎo) 0:
strMonth = "0" & strMonth
如果長(zhǎng)度為 1 之外的任何值,則只需保持原樣即可。
取得月份值后,用函數(shù) Day 重復(fù)同一過(guò)程,以便能檢索出日期的天部分。該值將被存儲(chǔ)在巧妙命名的變量 strDay 中。
這樣便提供了我們構(gòu)建文件名所需的全部數(shù)據(jù)。為此,首先要使用下面這行代碼將年月日合在一起(得到類(lèi)似 20050607 的字符串):
strYesterday = strYear & strMonth & strDay
然后,只需附加其余的路徑信息(在本例中,假定文件存儲(chǔ)在文件夾 C:\Backups 下):
strFileName = "C:\Backups\backup_" & strYesterday & ".bak"
如您所見(jiàn),我們只需將字符串 C:\Backups\backup_、所構(gòu)建的日期 (20050607) 以及 .bak 合并起來(lái)即可。將它們組合在一起之后將會(huì)得到類(lèi)似下面的結(jié)果:
C:\Backups\backup_20050607.bak
很酷吧。
然后,我們將使用下面這兩行代碼創(chuàng)建一個(gè) FileSystemObject 實(shí)例并刪除文件:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strFileName)
由于使用了 FileSystemObject,由于使用了 FileSystemObject,所以這一腳本只能在本地機(jī)上運(yùn)行。但如果備份文件位于遠(yuǎn)程計(jì)算機(jī)上,該怎么辦呢?沒(méi)問(wèn)題,此時(shí)可以使用 WMI 找到并刪除該文件。那么,為什么不最先就使用 WMI 呢?是這樣,F(xiàn)ileSystemObject 用不了一秒鐘就能找到并刪除文件,而 WMI 所需的時(shí)間則稍長(zhǎng)一些。我們決定以速度和效率為先。
但正如我們所說(shuō)的,如果文件位于遠(yuǎn)程計(jì)算機(jī)上,則速度和效率并不會(huì)給您帶來(lái)太多好處。幸運(yùn)的是,在這種情況下可以使用 WMI 腳本刪除文件。以下腳本(今天暫且不對(duì)其進(jìn)行討論)將從名為 atl-fs-01 的遠(yuǎn)程計(jì)算機(jī)上刪除備份文件:
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ā)生過(guò)一樣。對(duì)嗎,老板?
注意:難道就不能省去這一切麻煩,簡(jiǎn)單地刪除所有創(chuàng)建/修改日期等于前一天日期的文件嗎?可以,只要該文件夾中決不會(huì)存在具有相同日期因而可能會(huì)被意外刪除的任何其他文件就行。綜合考慮各種因素,上述做法似乎是最為安全的。
您好,腳本專(zhuān)家!有一個(gè)程序每天都會(huì)創(chuàng)建一個(gè)具有類(lèi)似于以下名稱的文件:backup_20050607.bak。如何才能刪除前一天的文件呢?
-- JC
答:
您好,JC。嗯,可以調(diào)用一個(gè)腳本自動(dòng)刪除前一天產(chǎn)生的任何文件?;镉?jì),就在幾周前我們?cè)眠^(guò)一個(gè)類(lèi)似這樣的腳本!
是的,我們還有印象。但往事不能重提。
除此之外,我們還要在此寫(xiě)一個(gè)專(zhuān)欄。您需要一個(gè)腳本來(lái)刪除名如 backup_20050607.bak(其中,20050607 表示前一天,在本例中即為 2005 年 6 月 7 日)的文件,對(duì)嗎?您需要做的一切就是使用:
復(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)建文件名;有了文件名后,刪除文件就是小事一樁了。那么,我們?cè)撊绾螛?gòu)建該文件名呢?
對(duì),文件名中每天都會(huì)發(fā)生變化的那一部分就是表示備份文件生成日期的那個(gè)部分。也就是說(shuō),我們所要做的全部事情就是構(gòu)建文件名的這個(gè)部分,其它部分可以采用硬編碼來(lái)加入。因此,我們需要從確定前一天的日期開(kāi)始,這可通過(guò)將當(dāng)前日期減去一,然后該值存入一個(gè)名為 dtmYesterday 的變量來(lái)完成:
dtmYesterday = Date - 1
接下來(lái),使用 Year 函數(shù)從 dtmYesterday 取得四位數(shù)字的年份值(例如 2005);該值將被存儲(chǔ)在變量 strYear 中。緊接著使用 Month 函數(shù)從 dtmYesterday 取得月份值。
但是請(qǐng)注意,對(duì)于月份值須得另外再進(jìn)行一些編碼(對(duì)于日期也是如此)。為什么呢?是這樣,假定我們所處理的是六月份。此時(shí),Month 函數(shù)將返回值 6。這并沒(méi)有什么問(wèn)題,只不過(guò)在我們的文件名中為月份分配了兩位數(shù)字;需要將月份以 06 形式列出。因此,我們必須確定所得到的月份是一位數(shù)字還是兩位數(shù)字。如果是一位數(shù)字的月份,則必須在數(shù)字前面加零。我們就是象下面這樣做的:
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
這段代碼真的是一目了然。Len(長(zhǎng)度)函數(shù)會(huì)告訴我們 strMonth 變量中有多少位數(shù)字。如果只有 1 位,則添加前導(dǎo) 0:
strMonth = "0" & strMonth
如果長(zhǎng)度為 1 之外的任何值,則只需保持原樣即可。
取得月份值后,用函數(shù) Day 重復(fù)同一過(guò)程,以便能檢索出日期的天部分。該值將被存儲(chǔ)在巧妙命名的變量 strDay 中。
這樣便提供了我們構(gòu)建文件名所需的全部數(shù)據(jù)。為此,首先要使用下面這行代碼將年月日合在一起(得到類(lèi)似 20050607 的字符串):
strYesterday = strYear & strMonth & strDay
然后,只需附加其余的路徑信息(在本例中,假定文件存儲(chǔ)在文件夾 C:\Backups 下):
strFileName = "C:\Backups\backup_" & strYesterday & ".bak"
如您所見(jiàn),我們只需將字符串 C:\Backups\backup_、所構(gòu)建的日期 (20050607) 以及 .bak 合并起來(lái)即可。將它們組合在一起之后將會(huì)得到類(lèi)似下面的結(jié)果:
C:\Backups\backup_20050607.bak
很酷吧。
然后,我們將使用下面這兩行代碼創(chuàng)建一個(gè) FileSystemObject 實(shí)例并刪除文件:
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strFileName)
由于使用了 FileSystemObject,由于使用了 FileSystemObject,所以這一腳本只能在本地機(jī)上運(yùn)行。但如果備份文件位于遠(yuǎn)程計(jì)算機(jī)上,該怎么辦呢?沒(méi)問(wèn)題,此時(shí)可以使用 WMI 找到并刪除該文件。那么,為什么不最先就使用 WMI 呢?是這樣,F(xiàn)ileSystemObject 用不了一秒鐘就能找到并刪除文件,而 WMI 所需的時(shí)間則稍長(zhǎng)一些。我們決定以速度和效率為先。
但正如我們所說(shuō)的,如果文件位于遠(yuǎn)程計(jì)算機(jī)上,則速度和效率并不會(huì)給您帶來(lái)太多好處。幸運(yùn)的是,在這種情況下可以使用 WMI 腳本刪除文件。以下腳本(今天暫且不對(duì)其進(jìn)行討論)將從名為 atl-fs-01 的遠(yuǎn)程計(jì)算機(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
注意:難道就不能省去這一切麻煩,簡(jiǎn)單地刪除所有創(chuàng)建/修改日期等于前一天日期的文件嗎?可以,只要該文件夾中決不會(huì)存在具有相同日期因而可能會(huì)被意外刪除的任何其他文件就行。綜合考慮各種因素,上述做法似乎是最為安全的。
相關(guān)文章
Vbs備份指定文件到指定目錄并且以日期重命名的實(shí)現(xiàn)代碼
這篇文章主要介紹了Vbs備份指定文件到指定目錄并且以日期重命名的實(shí)現(xiàn)代碼,需要的朋友可以參考下2019-09-09注冊(cè)表-批處理-VBS之間的相互結(jié)合應(yīng)用
注冊(cè)表-批處理-VBS之間的相互結(jié)合應(yīng)用...2007-10-10遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...2007-02-02輸入mdb數(shù)據(jù)庫(kù)即可將打包的mdb文件解包
2008-01-01用vbs將輸出內(nèi)容寫(xiě)到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法
用vbs將輸出內(nèi)容寫(xiě)到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法...2007-03-03VBS教程:VBScript 語(yǔ)句-Sub 語(yǔ)句
VBS教程:VBScript 語(yǔ)句-Sub 語(yǔ)句...2006-11-11