Sign in to follow this  
lcs_sp

Fso - Não Atualiza A Data

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this