SET fso = Server.CreateObject("Scripting.FileSystemObject")
DataBaseFile = "web_dbuiwefgjksdfwiuetyjshf.mdb"
If fso.FileExists(Server.Mappath(DataBaseFile)) Then
BackupFolder = "Backup_Data__"
BackupDay = 10
BackupFile = GetRanNum() & ".backup"
FullFolder = Server.MapPath(BackupFolder)
FullFile = Server.MapPath(BackupFolder & "/" & BackupFile)
If fso.FolderExists(FullFolder) = False Then fso.CreateFolder(FullFolder)
If fso.FileExists(FullFile) = False Then
fso.CopyFile(Server.Mappath(DataBaseFile)),(FullFile)
SET fso_FileList = fso.GetFolder(FullFolder)
For Each x in fso_FileList.Files
FileDate = Left(x.Name,4) & "-" & Mid(x.Name,5,2) & "-" & Mid(x.Name,7,2)
If DateDiff("d",FileDate,Date()) > BackupDay Then
fso.DeleteFile FullFolder & "\" & x.Name,True
End If
Next
End If
End If
Function GetRanNum()
Dim strNow,strYear,strMonth,strDate,strHour,strMinute,strSecond,ranNum,zNum
strNow = Now()
strYear = Year(strNow)
strMonth = Month(strNow)
If strMonth < 10 Then strMonth = "0" & strMonth
strDate = Day(strNow)
If strDate < 10 Then strDate = "0" & strDate
strHour = Hour(strNow)
If strHour < 10 Then strHour = "0" & strHour
strMinute = Minute(strNow)
If strMinute < 10 Then strMinute = "0" & strMinute
strSecond = Second(strNow)
If strSecond < 10 Then strSecond = "0" & strSecond
GetRanNum = strYear & strMonth & strDate & strHour & strMinute & strSecond
ranNum = ""
For i = 1 to 10
Randomize
zNum = Cint(9*Rnd)
zNum = zNum + 48
ranNum = ranNum & Chr(zNum)
Next
GetRanNum = GetRanNum & "_" & ranNum
End Function
