FSO - naõ atualiza a data de criação

E ai pessoal beleza ???

Estou usando o FSO para verificar a data de criação do backup se e do dia anterior, até ai tudo bem, porém, quando o usuário fecha o sistema e rega o backup e abre o sistema novamente ele ainda apresenta a data de criação antiga, ele não atualiza a data.

O código esta abaixo:

Dim pasta_backup As String pasta_backup = GetSetting("UniCEASA", "configura", "caminho_backup", "") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(pasta_backup) = True Then Set fso = Nothing Set fso = CreateObject("Scripting.FileSystemObject") Set novo = fso.GetFile(pasta_backup) If DateDiff("d", novo.datecreated, Now()) >= 2 Then If Weekday(Now()) = 2 And DateDiff("d", novo.datecreated, Now()) = 3 Then GoTo new_temp End If frm_ScrollUP.lbl_msg.Caption = IIf(InStr(1, frm_ScrollUP.lbl_msg.Caption, "Backup") <> 0, frm_ScrollUP.lbl_msg.Caption, "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", IIf(Weekday(Now) = 2, -3, -1), Now()), vbShortDate)) Else frm_ScrollUP.lbl_msg.Caption = frm_ScrollUP.lbl_msg.Caption & Chr(13) & "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", IIf(Weekday(Now) = 2, -3, -1), Now()), vbShortDate) End If End If Else frm_ScrollUP.Show frm_ScrollUP.lbl_msg.Caption = "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", -1, Now()), vbShortDate) End If Set fso = Nothing Set novo = Nothing End If