Usuário com melhor resposta
SCRIPT COPIAR DE UM SERVIDOR PARA OUTRO

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 = TRUESet 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á.
Respostas
-
Olá,
Verifique o script abaixo:
Const OverwriteExisting = TRUE
strOrigem = "\\10.8.1.68\d$\MilkSystem\Application\dados\ "
strDestino = "\\10.8.1.10\apps$\GKOFRETE\ArqEntrada\TESTE \"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArq = ObjFSO.GetFolder(strOrigem)
Set MyFiles = objArq.files
For Each MyFiles in objArq.Files
strFileOrig = Myfiles.path
objFSO.copyfile strFileOrig ,strDestino,OverwriteExisting
Next
Até mais,
Jesiel
Obs.: Se útil, classifique
- Marcado como Resposta Rafael S. AMARAL quarta-feira, 10 de fevereiro de 2010 12:34
Todas as Respostas
-
Olá,
Verifique o script abaixo:
Const OverwriteExisting = TRUE
strOrigem = "\\10.8.1.68\d$\MilkSystem\Application\dados\ "
strDestino = "\\10.8.1.10\apps$\GKOFRETE\ArqEntrada\TESTE \"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArq = ObjFSO.GetFolder(strOrigem)
Set MyFiles = objArq.files
For Each MyFiles in objArq.Files
strFileOrig = Myfiles.path
objFSO.copyfile strFileOrig ,strDestino,OverwriteExisting
Next
Até mais,
Jesiel
Obs.: Se útil, classifique
- Marcado como Resposta Rafael S. AMARAL quarta-feira, 10 de fevereiro de 2010 12:34
-