COPIA DE PASTA

USUARIO.EXCLUIDOS 12/12/2006 01:02:35
#189426
Eu peguei um codigo aki no vbm, eu consegui usar durante um tempinho, mas ai eu mandei pra um amigo meu testa e deu erro, ai quando eu fui crirar outro projeto no meu micro tbm começou a dar erro, o seguinte codigo eh esse:

  
[c]Private Sub Command1_Click()
'Call CopiaPasta("origem", "destino")
Call CopiaPasta("C:\101\", "C:odrigo\")

End Sub

Sub CopiaPasta(pastaOrigem, pastaDestino)
Dim Fso, MyFile
Set Fso = CreateObject("Scripting.FileSystemObject")
   [txt-color=#ffff00] Fso.CopyFolder pastaOrigem, pastaDestino[/txt-color]
End Sub


quando eu clico no command1 pra realizar a ação ele da um [txt-color=#ffff00]run-time error '76' path not found[/txt-color]

quando eu clico em debug, ele seleciona a linha q esta em amarelo do codigo!!!

alguem consegue me ajudar???
[/c]
USUARIO.EXCLUIDOS 12/12/2006 01:04:34
#189427
Postando novamente o codigo q esta dando erro, pq não consegui destaca-lo com keria:

  Sub CopiaPasta(pastaOrigem, pastaDestino)
Dim Fso, MyFile
Set Fso = CreateObject("Scripting.FileSystemObject")
   Fso.CopyFolder pastaOrigem, pastaDestino
End Sub


a linha q da o erro eh a " Fso.CopyFolder pastaOrigem, pastaDestino " e o nome do run-time é" run-time error '76' path not found "
HARRY.POTTER 12/12/2006 01:44:40
#189429 Resposta escolhida
Parece meio estranho, mas...
Eu testei aqui e deu certo. Aí fui ver os detalhes...

Tente alterar

Call CopiaPasta("C:\101\", "C:odrigo\")


para

Call CopiaPasta("C:\101", "C:odrigo")

(sem o '\' no fim)

Estranho, mas com deu erro. Sem, funcionou. ^^
USUARIO.EXCLUIDOS 13/12/2006 10:20:45
#189650
Eh... funcionou em termos...

ter algum outro modo de copiar uma pasta, ser ser deste geito q eu usei????
USUARIO.EXCLUIDOS 13/12/2006 11:20:07
#189677
ninguem????
USUARIO.EXCLUIDOS 13/12/2006 11:35:30
#189681
Cara, eu testei aqui e observei que quando a pasta de origem nao existe ele da o tal do erro. Observe se o caminho da pasta de origem está correto e por via das duvidas crie uma nota pasta no diretorio raiz tipo "C:\Teste" so pra verificar se adianta!

qualquer coisa poste

flw
USUARIO.EXCLUIDOS 13/12/2006 11:41:01
#189683
Intão, esta certo existe sim, qq acontece no meu micro funciona na boa, so q quando eu passei esse sistema pro meu camarada não funcionou ele testou em varios micros e nada, mas existe as pastas sim.....


abraço!!!
USUARIO.EXCLUIDOS 13/12/2006 11:42:11
#189685
Outra coisa cara, coloque o caminho sem a ultima barra tipo "C:    este" e NAO "C:    este\" se nao vai dar erro tambem!

flw
USUARIO.EXCLUIDOS 13/12/2006 11:43:00
#189686
qual SO voce utiliza?
USUARIO.EXCLUIDOS 13/12/2006 11:53:46
#189690
realmente como dito citado pelo HARRY POTTER, colocando "\" no final da o erro q vc citou, mas retirando o "\" final funciona perfeitamente
USUARIO.EXCLUIDOS 13/12/2006 13:49:24
#189713
Bom msm sem a barrinha nos micros q ele testou da erro, bom o SO de todas as maquinas eh o XP
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar