Delete Old backup Files

  • Comments posted to this topic are about the item Delete Old backup Files

    Shas3

  • 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.

  • As the other poster asked some instructions on running this would be grand!

    Thanx in advance

    Karuana

  • 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

  • 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

  • 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