none
Copiar arquivo de uma determinada data RRS feed

  • Pergunta

  •  

    Bom dia, gostaria de saber se tem como criar um script que copia um arquivo por sua data. E essa eu possa determinar, ou copiar o arquivo com a data do dia corrente.

     

    Obrigado.

    terça-feira, 22 de abril de 2008 12:30

Respostas

  • Ayuso segue script para isso, coloca ele como tarefa agendada em uma determinada hora e pronto Wink

     

    strcomputer="."
    Set wmi = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")
    set arquivos = wmi.execquery("select * from CIM_DATAFILE where path='\\documents and settings\\vsnet\\local Settings\\application data\\microsoft\\windows nt\\ntbackup\\data\\' and extension = 'log'")
    ultimo = ""
    penultimo = ""
    for each arq in arquivos
    if arq.lastmodified > ultimo then
     ultimo = arq.lastmodified
     arquivo = arq.drive & arq.path & arq.filename & "." & arq.extension
    end if
    next
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "remetente"
    objEmail.To = "destinatario"
    objEmail.Subject = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.Textbody = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.AddAttachment"file://" & arquivo
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "seu servidor smtp"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update

    objEmail.Send
    wscript.quit

     

    terça-feira, 22 de abril de 2008 19:06

Todas as Respostas

  • Ayuso deixa eu ver se entendi, você quer copiar um arquivo que foi criado ou modificado em uma determinada data e quando for colar aparecer a data do dia corrente?

    terça-feira, 22 de abril de 2008 15:29
  • Deixar, eu tentar explicar melhor.

     

    Eu uso NT Backup, e ele gera 10 arquivos TXT que sao os log, e esses arquivos sao gerado com a data do dia que foi feito o backup, nao importa quantos backup´s eu fizer no dia vai estar tudo em um unico arquivo de log.

     

    O que eu quero é que quando terminar o backup, ele pegue esse arquivo com a data do termino (data corrente) e me envie por e-mail.

     

    Melhorei o que expliquei ou piorei?

     

    Obrigado

     

    terça-feira, 22 de abril de 2008 16:01
  • Ayuso segue script para isso, coloca ele como tarefa agendada em uma determinada hora e pronto Wink

     

    strcomputer="."
    Set wmi = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")
    set arquivos = wmi.execquery("select * from CIM_DATAFILE where path='\\documents and settings\\vsnet\\local Settings\\application data\\microsoft\\windows nt\\ntbackup\\data\\' and extension = 'log'")
    ultimo = ""
    penultimo = ""
    for each arq in arquivos
    if arq.lastmodified > ultimo then
     ultimo = arq.lastmodified
     arquivo = arq.drive & arq.path & arq.filename & "." & arq.extension
    end if
    next
    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "remetente"
    objEmail.To = "destinatario"
    objEmail.Subject = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.Textbody = "Log do backup do dia " &  datepart("d", now()) & "/" & datepart("m",now()) & "/" & datepart("yyyy",now())
    objEmail.AddAttachment"file://" & arquivo
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "seu servidor smtp"
    objEmail.Configuration.Fields.Item _
     ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update

    objEmail.Send
    wscript.quit

     

    terça-feira, 22 de abril de 2008 19:06
  • OK. Perfeito, muito obrigado.

     

     

    Abraços.

     

    quarta-feira, 23 de abril de 2008 13:24