chengyu0701988的部落格

'自動化檔案維護管理程式
'天數
daysAgo = 20

'路徑
dirPath = "Z:\\"

'副檔名
extName = ".bak"

'定義變數backupnas

Dim backupnas

';;;;;程式開始;;;;;

'設定backupnas連線網路磁碟機I

Set backupnas = CreateObject("WScript.Network")
backupnas.MapNetworkDrive "z:", "\\ps-ehrd-bkup\rdel-sql2-dt" ,"True","backupadm","vm4xu06"

Set fs = CreateObject("Scripting.FileSystemObject")
Set w = WScript.CreateObject("WScript.Shell")

Set f = fs.GetFolder(dirPath)
Set fc = f.Files

dateBefore = Now() - daysAgo

For Each ff in fc
fileName = ff.Name
fileDate = ff.DateLastModified

If Right(fileName, Len(extName)) = extName And fileDate < dateBefore Then
fs.DeleteFile(dirPath & "\\" & fileName)
End If

Next

'backupnas.RemoveNetworkDrive "Z:"
backupnas.RemoveNetworkDrive "Z:","True","True"

-----------------------------------------------------------------------------------------------------