老華博客

on error resume next
dtmYesterday1 = Date
dtmYesterday = Date-4
strYear1 = Year(dtmYesterday1)
strYear = Year(dtmYesterday)
strMonth1 = Month(dtmYesterday1)
strMonth = Month(dtmYesterday)
strDay1 = Day(dtmYesterday1)
strDay = Day(dtmYesterday)

If Len(strMonth1) = 1 Then 
    strMonth1 = "0" & strMonth1
End If 

If Len(strMonth) = 1 Then 
    strMonth = "0" & strMonth 
End If

If Len(strDay1) = 1 Then 
    strDay1 = "0" & strDay1 
End If

If Len(strDay) = 1 Then 
    strDay = "0" & strDay 
End If

strYesterday1 = strYear & strMonth & strDay1 &"*"
strYesterday = strYear & strMonth & strDay &"*"

strFileName1 = "D:\AA_rar\NIKKO_db_" & strYesterday1 & ".rar"
strFileName = "D:\AA_rar\NIKKO_db_" & strYesterday & ".rar"

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile (strFileName1) , "Q:\AA_bak_rar\", OverwriteExisting
Set objFSO = CreateObject("Scripting.FileSystemObject") 
    objFSO.DeleteFile(strFileName),true
Set objFSO=Nothing

if err.number<>0 then
    wscript.echo "错误代码:" &err.number &"错误描述:"& err.description & err.source
end if

以上代码我之前没有研究出SQL自动备份并转移到网络硬盘时使用的，现供大家参考