none
copiar arquivo via script vbs RRS feed

  • Pergunta

  • Pessoal, por favor, preciso efetuar a cópia de diversos arquivos de uma estrutura de pastas em um desktop para a mesma estrutura de pastas em um servidor.

    Estava tentando utilizar o seguinte script:

    Const OverwriteExisting = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\teste1.txt" , "\\servidor\pasta1\", OverwriteExisting

    Ele funciona, mas somente para um arquivo. Gostaria que no mesmo script ele contivesse todas as pastas e todos os arquivos, como no exemplo:

    objFSO.CopyFile "C:\teste1.txt" , "\\servidor\pasta1\", OverwriteExisting

    objFSO.CopyFile "C:\teste2.txt" , "\\servidor\pasta2\", OverwriteExisting

    objFSO.CopyFile "C:\teste3.txt" , "\\servidor\pasta3\", OverwriteExisting

    Como posso fazer isso?

    Obrigado.

    terça-feira, 21 de agosto de 2012 16:13

Respostas

Todas as Respostas