none
Copiar aquivos de uma pasta. RRS feed

  • Pergunta

  • Bom dia:<o:p></o:p>

    A todos;<o:p></o:p>

    Tenho um servidor com uma pasta com mais 5.000 fotos; tenho que copiar as imagens manualmente para varias maquinas na rede.<o:p></o:p>

    Tenho o seguinte Script abaixo com os seguintes problemas:<o:p></o:p>

    Quando ele não acha o IP ele para que ignore isso.<o:p></o:p>

    E tenho que copiar todas as fotos; gostaria que ele fizesse uma comparação com o destino e
    só copia se o que não existe da passa de origem se possivel.<o:p></o:p>

    e é muito grande se teria como resumir<o:p></o:p>

    tenho mais de 100 IPs na rede

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'sunstitua aqui o seu diretrio e a origem e destino
    objFSO.CopyFile "E:\AR\Sistema\Imagens\*.jpg" , "\\10.10.1.100\AR\Imagens\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Imagens\*.jpg" , "\\10.10.1.101\AR\Imagens\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Imagens\*.jpg" , "\\10.10.1.102\AR\Imagens\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Imagens\*.jpg" , "\\10.10.1.103\AR\Imagens\" , OverwriteExisting
    objFSO.CopyFile "E:\AR\Sistema\Imagens\*.jpg" , "\\10.10.1.104\AR\Imagens\" , OverwriteExisting


    • Editado Fábio JrModerator segunda-feira, 18 de março de 2013 15:27 Retirada a palavra Script: do título
    segunda-feira, 18 de março de 2013 12:48

Respostas