File System

[filipescoob 1]

Bom dia galera... estou com um problema serio o file system porque ele não copia atravez de endereços de rede e só locais ???? quem puder me ajudar agradeço muito obrigado....

 

segue o codigo com endereços locais...

 

<%variavel = request.form("captura")post = request.form("postback")response.write "Variavel = " & variavel & "<br>"dim filesys , arquivo_origemset filesys=CreateObject("Scripting.FileSystemObject") arquivo_origem = variavelIf filesys.FileExists(arquivo_origem) Then	arquivo_destino = filesys.GetFileName(arquivo_origem)	caminho_destino = "c:\teste\" & arquivo_destino			If filesys.FileExists(caminho_destino) Then				response.write "Já existe um arquivo neste diretório com este nome"			else				response.write "Arquivo copiado com sucesso" & "<br>"				filesys.CopyFile arquivo_origem, "c:\teste\"			end if else	response.write "Falha ao copiar o Arquivo"end if%><form name="formulario01" action="copyfile2.asp" method="post"><% if (post = "sim") then %>	<input type="file" name="captura" onChange="atualizar(formulario01)" value"teste">	<input type="hidden" name="postback" value = "sim"<% else %>	<input type="file" name="captura" onChange="atualizar(formulario01)">	<input type="hidden" name="postback" value = "sim"<% end if %></form><script language="javascript">	function atualizar(qual) {		qual.submit()	}</script>

No caso acima funciona ele verifica se o arquivo ja existe e se existir não deixa sobrescrever o mesmo... porem isto é para roda em rede e quando dasse o endereço da rede ele não funciona... quem puder me ajudar agradeço...

 

Falow para todos

[Schneider 0]

cara, pq tu não usa a variável que tu testa a existência do arquivo na funcão CopyFile?

 

If filesys.FileExists(arquivo_origem) Then	arquivo_destino = filesys.GetFileName(arquivo_origem)	caminho_destino = "c:\teste\" & arquivo_destino			If filesys.FileExists(caminho_destino) Then				response.write "Já existe um arquivo neste diretório com este nome"			else				response.write "Arquivo copiado com sucesso" & "<br>"				filesys.CopyFile arquivo_origem, caminho_destino			end if else	response.write "Falha ao copiar o Arquivo"end if

e no lugar de 'c:\teste' coloca o endereço de destino na rede, por exemplo '\\nome do computador\pasta\'. Se o destino tiver permissão de escrita, vai ter que funcionar.

 

testa aí cara.