October 1, 2007 at 8:32 pm
Comments posted to this topic are about the item Delete Old backup Files
Shas3
December 19, 2007 at 9:44 am
Hello I was wondering how do you execute that statement. I saw that you said it was a vb script. So in my sql 05 database i would have to call that script or could i hard code it in the database. If so could you give detail insturctions.
July 29, 2008 at 5:16 pm
As the other poster asked some instructions on running this would be grand!
Thanx in advance
Karuana
August 14, 2008 at 10:01 am
Thanks this worked brilliantly for me . It has saved me much time and I now understand a bit more about vbs. 🙂
I have put this script into the last job step on my backup job in sql2005 .
select type as activeXscript and language vb script and it runs !
Lovely job
Thanks again
Lizzy
September 16, 2008 at 4:29 am
Ahhhh after running this successfully for a month from 14/08/2008 I discovered a blip when the day changes from 9 th to the 10th (Discovered this on the 9/11/2008 which spooked me a bit ) The DateCheck function can not handle the extra digit on the expiration num and deletes the new files rather than the old files. However this is inconsistant as the results from my log file show:
-----------------------------------------------
YToday num =2008
MToday num =9
DToday num 15
YExpiration num = 2008
MExpiration num = 9
DExpiration num =14
lastmodified num = 200899
Expiration Num =2008914
DateCheck new
YToday num = 2008
MToday num = 9
DToday num =15
YExpiration num =2008
MExpiration num = 9
DExpiration num =14
lastmodified num =200888
Expiration Num = 2008914
database deleted = mydatabase_db_200808081830.bak,8/8/2008 6:30:02 PM
-------------------------------------
LastmodifiedNum < ExpirationNum
Why Then is 200888 < 2008914 correct but 200899 < 2008914 is not correct ?
I have amended the function to use DateDiff this is working well so far.
Function DateCheck(Lastmodified)
DiffADate = DateDiff("d", Lastmodified,Date )
LogFile.Writeline "Date difference = " & " " & DiffADate
If DiffADate > Days then
DateCheck="old"
LogFile.Writeline "DateCheck " & "" & DateCheck
else
DateCheck="new"
LogFile.Writeline "DateCheck " & "" & DateCheck
end if
end Function
Will keep you posted of my progress.
Cheers
Lizzy
January 16, 2012 at 9:25 am
DOes it works with sql server 2008R2?
Viewing 6 posts - 1 through 5 (of 5 total)
You must be logged in to reply to this topic. Login to reply