Usuário com melhor resposta
Erro de Script 800a004c

Pergunta
-
Olá,
sou novo aqui no forum e estou precisando de uma ajuda sobre um script que estou querendo implementar.
Seguinte:
Const OverWriteFiles = TrueSet objFSO = CreateObject ("Scripting.FileSystemObject")Set objNetwork = CreateObject("Wscript.Network")objFSO.CopyFolder "C:\Users\"&objNetwork.UserName&"\AppData\Local\Microsoft\Outlook" , "\\server_bk\outlook\"&objNetwork.UserName&"" , OverWriteFilesMas ele esta dando erro abaixo:
Linha: 7
Caract: 1
Erro: Caminho não encontrado
Origem: Erro de tempo de execução do Microsoft vbscript.
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.
- Sugerido como Resposta Fábio JrModerator segunda-feira, 9 de março de 2015 16:38
- Marcado como Resposta Fábio JrModerator quinta-feira, 12 de março de 2015 14:05
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 -
-
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.
- Sugerido como Resposta Fábio JrModerator segunda-feira, 9 de março de 2015 16:38
- Marcado como Resposta Fábio JrModerator quinta-feira, 12 de março de 2015 14:05
-
-