Copiar Arquivo

[Cristian M. Regazzo 0]

Bom dia galera...

 

Estou tentando copiar um arquivo via ASP usando FSO, porém esta dando erro:

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

objFSO.CopyFile "C:\teste.txt", "C:\XML\"

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A004C)

Caminho não encontrado

 

Ja procurei aqui no fórum na net, e nada...

 

Alguém sabe o que esta errado no script???

 

[]'s

Regazzo

[Cristian M. Regazzo 0]

Galera mudei o script:

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

 

objFSO.CopyFile "c:\boleto.pdf", "c:\XML"

 

Tirei a "\" depois do "XML"

 

E agora ta dando o seguinte erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0035)

Arquivo não encontrado

 

Só que o arquivo existe sim...

 

Alguma Luz?

 

[]'s

Regazzo

[jrcardozo 4]

o IIS não tem permissão para acessar o arquivo de origem ou não tem permissão para gravar no diretorio de destino

[Patrique 0]

coloque os arquivos na pasta c:/inetpub/wwwroot e faça o teste, provavelmente é como o jonathan disse, isso ae ta parecendo erro de permissão.

[Cristian M. Regazzo 0]

Qual seria por acaso o usuario para o IIS??

 

[]'s

Regazzo

[Cristian M. Regazzo 0]

Patrique fiz o teste na pasta c:/inetpub/wwwroot e esta dando outro erro agora:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

 

 

O que pode ser???

 

[]'

Regazzo

[jrcardozo 4]

IUSR_nomedamaquina

[Patrique 0]

tente colocar o usuário como o jonathan postou e faça o teste ae

[Cristian M. Regazzo 0]

Coloquei acesso total ao usuario citado acima... E nada

 

Continua dando permissão negada...

 

Mais alguma ideia??

 

[]'s

Regazzo

[jrcardozo 4]

tente usar essa função que fiz:

 Function copiarArquivo(de, para)
 Dim objFso
 Set objFso = Server.CreateObject("Scripting.FileSystemObject")
 If (objFso.FileExists(de) = True) Then
 objFso.CopyFile de, para, True
 End if 
 Set objFso = Nothing
 End Function
Call copiarArquivo ("c:\teste\arquivo.txt", "c:\arquivo.txt")

[Cristian M. Regazzo 0]

Mesmo erro mano...

 

Ta zicado...

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/nfe/copiar.asp, line 9

[Cristian M. Regazzo 0]

O mais estranho que antes da função de copiar, tenho uma outra função que cria uma pasta, e não dá erro ao criar a pasta, mas copiar o arquivo da erro...

 

Estou a três dias tentando resolver isso e nada..

 

Ta embaçado...

 

[]'s

Regazzo

[jrcardozo 4]

e você quer colocar o arquivo dentro desta pasta que é criada? se sim, está concatenando o nome da pasta certa?

[igadino 0]

Tente este testei esta funcionando perfeitamente

LEMBRANDO QUANDO FOR FAZER A COPIA DO ARQUIVOS você NÃO PODE COLOCAR OS SEGUINTES CARACTERES |,<>,\,?,/: PORQUE NA LINHA

objFSO.CopyFile "C:\teste.txt", "C:\XML\"

TEM QUE FICAR ASSIM

objFSO.CopyFile "C:\teste.txt", "C:\XML\ e o nome do arquivos.txt"

   	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
            	if not request("local")="" then
			For Each strFileName In Request("arquivos")
			objFSO.CopyFile "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&""
			objFSO.CopyFolder "D:\Domains\igadino.com"&request("local")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("local")&"\Copia de "&strFileName&""
		 	Next ' strFileName
		    response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")
			else
    		For Each strFileName In Request("arquivos")
			objFSO.CopyFile "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&""
			objFSO.CopyFolder "D:\Domains\igadino.com"&request("StartPath")&"\"&strFileName&"", "D:\Domains\igadino.com"&request("StartPath")&"\Copia de "&strFileName&""
		    response.Redirect("?sessao=Criar_Adm&StartPath="&REQUEST("local")&"")	
			Next ' strFileName	
			end if

[xanburzum 169]

existem exemplos no lab. de script, tb, verifique se as permissoes estao todas corretas e muitas vezes para ter um maior gerenciamento pode usar um sistema tipo Explorer, mas basicamente isto, copiar os arquivos para outra pasta. você usar FSO (File System Object.) Método CopyFile da FSO é a maneira mais simples de copiar os arquivos. Seguinte código de exemplo irá copiar alguns arquivos para outra pasta

 

 

 

<% 

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\\Inetpub\\wwwwroot\\default.htm", "c:\\Inetpub\\wwwwroot\\backup\\default.htm" 

response.write "Arquivo copiado." 

%>