none
Verificar data de arquivo RRS feed

  • Pergunta

  •  

    Ola galera,

     

    E o seguinte eu tenho uma rotina de FTP diaria e preciso verificar se o arquivo foi criado no mesmo dia.

    Caso a data do arquivo seja do mesmo dia está tudo OK, caso a data seja do dia anterior o arquivo não foi gerado corretamente. 

     

    E possivel fazer um script para verificar estes passos e enviar notificação em caso de erros???

     

    Desde já agradeço pela atenção..

     

    Junior.

    terça-feira, 15 de julho de 2008 18:34

Respostas

Todas as Respostas

  •  B2-SPIRIT,

    Segue o script que precisa por enquanto ele só imprime a mensagem na tela podemos colocar uma função  para que ele envie uma mensagem por e-mail ou que gere um log TXT com resultado da verificação. Testa ai e implementamos o restante se for necessário.

    Code Snippet

    'Verificar a data de modificação
    'Por Leonardo Couto Conrado
    'Em 15.07.2008

    Option Explicit

    Dim PathVerifyFile, ObjFile, OurFile, FileDateModified,Deference

    PathVerifyFile = "C:\FILE_TESTE.txt" ' Informe aqui o arquivo a ser verificado a data de criação
    Set ObjFile = CreateObject("Scripting.FileSystemObject")
    Set OurFile = ObjFile.GetFile(PathVerifyFile)
    FileDateModified = OurFile.DateLastModified
    Deference = DateDiff("d", Now, FileDateModified)

    If (left(Deference ,1) <> "-") then
       Wscript.echo "OK !! Este arquivo foi modificado hoje, a data de modificação para o arquivo é  " & FileDateModified
       Else
        Wscript.echo "ERRO !! Este arquivo não foi modificado hoje, a data de modificação para o arquivo é " & FileDateModified
    End If

     

     

     

    att,

     

    Leonardo Couto.

    terça-feira, 15 de julho de 2008 19:06
  •  

    Leonardo valeu pelo script deu tudo certo.

    Agora se puder me ajudar com o envio das menssagens para e-mail eu agradeço muito. 

    terça-feira, 15 de julho de 2008 19:52
  •  B2-SPIRIT,

     

     

    Segue script para enviar o e-mail após verificação do arquivo. Se o foi util marque como resposta. abçç!

     

     

    Code Snippet

    'Verificar a data de modificação enviar e-mail
    'Por Leonardo Couto Conrado
    'Em 15.07.2008

    Option Explicit

    Dim PathVerifyFile, ObjFile, OurFile, FileDateModified, difference, objEmail


    PathVerifyFile = "C:\FILE_TESTE.txt" ' Informe aqui o arquivo a ser verificado a data de criação
    Set ObjFile = CreateObject("Scripting.FileSystemObject")
    Set OurFile = ObjFile.GetFile(PathVerifyFile)
    FileDateModified = OurFile.DateLastModified
    difference = DateDiff("d", Now, FileDateModified)

    If (left(difference ,1) <> "-") then
        EnviarEmail "OK !! Este arquivo foi modificado hoje, a data de modificação para o arquivo é  " & FileDateModified
       Else
        EnviarEmail "ERRO !! Este arquivo não foi modificado hoje, a data de modificação para o arquivo é " & FileDateModified
    End If

     

    Function EnviarEmail(Msg)
      
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "leonardo.conrado@tecnoasp.com.br" 'Email de ...

    objEmail.To = "leonardo.conrado@tecnoasp.com.br;" 'Para ... pode separar por ponto e virgula os destinatarios

    objEmail.Subject = ("Relatorio arquivo FTP " & now() &".") ' Assunto

    objEmail.Textbody = Msg 'Mensagem que será enviada


    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 'Timeout para conexão smtp
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Se se seu servidor requer autenticação marque "1" caso contratio "0"
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
    "leonardo.conrado@tecnoasp.com.br" 'Usuario que esta enviando o email deverá ser a conta SMTP
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
    "Sua_Senha" 'Senha de e-mail para o usuário acima
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
    "smtp.tecnoasp.com.br" 'Seu Servidor Smtp
    objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta de comunicção SMTP do seu server
    objEmail.Configuration.Fields.Update

    objEmail.Send

      
    End Function

     

     

     

     

    att,

     

    Leonardo Couto.

    terça-feira, 15 de julho de 2008 20:24
  • Cara é isso mesmo que eu quero.

    Só que esta dando o erro 80040213, mas acho que problema com o servidor SMTP da minha rede, o pior e que eu tenho outros serviços configurados nesse mesmo servidor SMTP e todos estão ok.

     

    Se tiver alguma dica do que pode esta ocorrendo..

     

    Valeu e muito obrigado mesmo...

    terça-feira, 15 de julho de 2008 21:39
  • B2-SPIRIT,

     

     

    O que vc pode fazer é o download de um smtp server básico é um setup que vc instala em qualquer Workstation e ela se transforma em um servidor de saída de e-mail, abaixo tem um link que vc pode baixar um para teste:

     

    Mais uma vez não esqueça de marcar os posts como resposta, pois assim encerramos a thread aberta por vc.

     

    http://superdownloads.uol.com.br/download/93/1st-smtp-server/

     

     

    Abçss,

     

    Leonardo Couto.

    quarta-feira, 16 de julho de 2008 11:14
  • Leonardo,boa tarde.

    Sera que pode me ajudar :

    Eu preciso de um script praticamente como esse so que ele deve fazer o seguinte :

    1- pegar de uma pasta um arquivo de backup , compactar(.rar) e mover para um servidor de backup (storage) já mapeado no servidor.  Seria pegar o arquivo do volume C\pastatal\arqivo.txt

    e mover para E:\backup\.

    2- fazer a verificação se o arquivo esta lá ou não por data ou nome

    3- apos fazer a verificação mandar um e-mail de sucesso ou de erro caso não esteja la.

     

    um abraço,

    Fabian

    quarta-feira, 14 de julho de 2010 20:37