none
Script .VBS para copiar arquivos caso os atuais sejam mais antigos. RRS feed

  • Discussão Geral

  • Boa tarde! Estamos montando AD e precisamos colocar um script .vbs, que atualize alguns arquivos caso a data de criação deles sejam mais antigos que os arquivos que estão no servidor. Já verifiquei em vários fóruns mas não encontrei nenhuma informação parecida, existe essa possibilidade? Obrigado.
    • Editado vjfonseca sexta-feira, 28 de julho de 2017 13:43
    quinta-feira, 27 de julho de 2017 20:16

Todas as Respostas

  • Depois de muito pesquisar consegui chegar no seguinte script, que funcionou legal. Porém, ele não verifica se o arquivo é mais antigo, acredito que preciso mudar algo no OverwriteExisting, mas não encontro nada sobre ele:

    set objFso=createObject("scripting.fileSystemObject")
    
    set objWShell=wScript.createObject("WScript.Shell")
    
    strTeste1 = "c:\scripts\Teste1.txt"
    strTeste2 = "c:\scripts\Teste2.txt"
    strTeste3 = "c:\scripts\Teste3.txt"
    strFolder = "c:\scripts\temp\"
    
    
    Const OverwriteExisting = TRUE
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
     
    If objFSO.FolderExists(strFolder) Then
      objFSO.CopyFile strTeste1, strFolder, OverwriteExisting  
      objFSO.CopyFile strTeste2, strFolder, OverwriteExisting  
      objFSO.CopyFile strTeste3, strFolder, OverwriteExisting  
    Else
      Wscript.Echo "Pasta de destino nao existe."
    End If

    sexta-feira, 28 de julho de 2017 13:27