Fso - Não Atualiza A Data

[lcs_sp]

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

[Graymalkin]

Por que a data de criação mudaria? Você deveria estar olhando a data de atualização, não?

Abraços,

Graymalkin

[lcs_sp]

Olá Graymalkin,

Era isso mesmo apesar de que o sistema renomeia e cria o arquivo novamente ele ainda guardava a data antiga resolveu verificando a data de atualização.

obrigado