none
BAT que compare datas. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Pessoal, tenho que fazer uma BAT que compare a data dentro de um arquivo TXT com a data da máquina e caso seja igual, ela compie uns arquivos para a máquina do usuário atualizando um biblioteca de símbolos.

    Alguém pode me dar uma ajuda?
    • Tipo Alterado _Andrea_ sexta-feira, 2 de outubro de 2009 18:59
    • Tipo Alterado Jesiel S. Pereira sexta-feira, 2 de outubro de 2009 19:21 Tipo errado
    sexta-feira, 2 de outubro de 2009 18:47
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Verifique o script abaixo:


    'arquivo que tem a data
    strArquivo = "c:\data.txt"

    'pasta origem dos arquivos
    strPastaOrigem = "c:\symbols"

    'pasta destino da copia
    strPastaDestino = "c:\teste"


    set FSO = createobject("scripting.filesystemobject")
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    set arq = FSO.opentextfile(strArquivo,1)
    Const OverwriteExisting = TRUE

    data = ""
    Do While arq.AtEndOfStream <> True
        data = arq.ReadLine
    loop



    if DateDiff("d",Date,data) > 0 then
       copiar
    End if


    sub copiar

    FSO.CopyFile strPastaOrigem & "\*.*" , strPastaDestino & "\" , OverwriteExisting

    End sub



    Salve com a extensão .vbs

    Altere as variaveis e faça os testes


    Até mais,

    Jesiel

    Obs.: Se útil, classifique




    sexta-feira, 2 de outubro de 2009 19:21
    |