none
Erro de Script 800a004c RRS feed

  • Pergunta

  • Olá,

    sou novo aqui no forum e estou precisando de uma ajuda sobre um script que estou querendo implementar.

    Seguinte:


    Const OverWriteFiles = True
     
    Set objFSO = CreateObject ("Scripting.FileSystemObject") 
    Set objNetwork = CreateObject("Wscript.Network")
     
     
    objFSO.CopyFolder "C:\Users\"&objNetwork.UserName&"\AppData\Local\Microsoft\Outlook" , "\\server_bk\outlook\"&objNetwork.UserName&"" , OverWriteFiles

    Mas ele esta dando erro abaixo:

    Linha: 7

    Caract: 1 

    Erro: Caminho não encontrado

    Origem: Erro de tempo de execução do Microsoft vbscript.

    quinta-feira, 5 de março de 2015 15:50

Respostas

  • Dagmar,

    Aqui rodei o processo conforme o script abaixo tche e não tive problemas, no seu caso no \\server_bk\outlook\ existe uma sub pasta com o nome do logon do usuário que esta logado na maquina que executou o seu script tche ?

    código que executei aqui,

    Const overwritefiles = True
    
    Set objFSO = CreateObject ("scripting.filesystemobject")
    Set objnetwork = CreateObject ("wscript.network")
    
    objfso.CopyFolder "c:\users\" & objnetwork.UserName & "\appdata\local\temp" , "\\serverrtv01\Treinamento\" & objnetwork.UserName, overwritefiles

    Obs, a linha 6 tche não tem quebra de linha ela é foi escrita todo o comando em uma linha unica tche.

    quinta-feira, 5 de março de 2015 19:17

Todas as Respostas

  • Dagmar

    Execute assim e veja qual é o comportamento tche, pelo que vejo o problema esta no &"" que vc colocou tche antes do OverWriteFiles

    Const OverWriteFiles = True
     
    Set objFSO = CreateObject ("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("Wscript.Network")
     
    objFSO.CopyFolder "C:\Users\" & objNetwork.UserName & "\AppData\Local\Microsoft\Outlook" , "\\server_bk\outlook\"& objNetwork.UserName, OverWriteFiles

    quinta-feira, 5 de março de 2015 16:46
  • Marcelo,

    Obrigado por responder.

    O erro agora esta dando na linha 6, sendo que eu copiei o seu comando que vc deu acima.

    quinta-feira, 5 de março de 2015 17:39
  • Dagmar,

    Aqui rodei o processo conforme o script abaixo tche e não tive problemas, no seu caso no \\server_bk\outlook\ existe uma sub pasta com o nome do logon do usuário que esta logado na maquina que executou o seu script tche ?

    código que executei aqui,

    Const overwritefiles = True
    
    Set objFSO = CreateObject ("scripting.filesystemobject")
    Set objnetwork = CreateObject ("wscript.network")
    
    objfso.CopyFolder "c:\users\" & objnetwork.UserName & "\appdata\local\temp" , "\\serverrtv01\Treinamento\" & objnetwork.UserName, overwritefiles

    Obs, a linha 6 tche não tem quebra de linha ela é foi escrita todo o comando em uma linha unica tche.

    quinta-feira, 5 de março de 2015 19:17
  • Vlw Marcelo irei testar amanhã... pois estou fora da estrutura neste exato momento.

    Amanhã te darei um retorno mais breve possível.

    quinta-feira, 5 de março de 2015 19:39
  • Vlw Marcelo fiz como vc falou acima e funcionou ...
    segunda-feira, 16 de março de 2015 20:23