none
SCRIPT COPIAR DE UM SERVIDOR PARA OUTRO RRS feed

  • Pergunta

  • Bom dia,

    Podem me ajudar nesse script ?

    Queria saber no que estou errando, aparece a seguinte a mensagem;

    LINE: 14
    CHAR: 5
    ERROR: BAD FILE or Number
    Code: 800A0034

    O script trata-se de copiar arquivos de uma pasta para outra. (Autor Jesiel S. P.), esse script me ajudou em um tópico anterior mas acredito que esse seria o mesmo esquema, só que nesse script tem uma função para criar a pasta caso nao tenha.....nao precisaria disso agora, porque ja tem a pasta e será somente copiado para este local.


    SEGUE CÓDIGO

    Const OverWriteFiles = TRUE

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    strOrigem = "\\10.8.1.68\d$\MilkSystem\Application\dados"
    strDestino = "\\10.8.1.10\apps$\GKOFRETE\ArqEntrada\TESTE"


    arrDestino = Split(strDestino,"\")
    strPasta = ""
    For x = 0 to UBOUND(arrDestino)
       strPasta = strPasta & arrDestino(x) & "\"
       if not objFSO.FolderExists(strPasta) Then
        objFSO.createFOlder(strPasta)
       End if
    Next


    objFSO.CopyFolder strOrigem , strDestino , OverWriteFiles


    Obrigado desde já.

    quarta-feira, 10 de fevereiro de 2010 11:05

Respostas

Todas as Respostas