Enviando mais de 1 arquivos para o ftp

[Gilberto Jr 26]

Bom dia, como eu faço para enviar mais de um arquivo para o ftp? Eu tenho os seguintes códigos...

O Formulario

<form name="form1" id="form1" method="post" action="insert.asp" enctype="multipart/form-data">
 <table border="0" background="../../v2/IMAGENS/FUNDO/BackNetFundoNoticia.gif">
   <tr> 
     <td colspan="2"><div align="left"> 
         <p><font size="4"><strong><font color="#FFFFFF" face="Arial, Helvetica, sans-serif">Arquivo Nota Fiscal</font><font face="Arial, Helvetica, sans-serif"> 
           <font color="#FFFF00">[ Inclusão ]</font><font color="#FF0000"><br>
           </font></font></strong></font></p>
       </div></td>
   </tr>
   <tr> 
     <td width="19%" valign="top"><font size="2" face="Arial, Helvetica, sans-serif">Loja</font></td>
     <td width="81%"><select name="select" id="select">
     <option value="0">||Selecione uma loja||</option>
  <%
  	while rs.eof=false
  %>
  <option id="1" value="<%=rs("cnpj")%>"><%=rs("loja")%></option>
  <%
  	rs.movenext
	wend
  %>
   </select>
     </td>
   </tr>
   <tr>
     <td valign="top"><font size="2" face="Arial, Helvetica, sans-serif">Faturamento</font></td>
     <td><input name="arquivo" type="file" id="arquivo"  value="" size="60"/></td>
   </tr>
   <tr> 
     <td><font color="#000066" size="2" face="Arial, Helvetica, sans-serif"><strong><a href="#"><img src="../../v2/IMAGENS/BOTOES/BackNetAddNoticia.gif" width="120" height="40" border=0></a> 
       </strong></font></td>
     <td> <div align="center"> 
         <input name="acao" type="hidden" id="acao" value="<%=acao%>" />
         <input name="id" type="hidden" id="id" value="<%=id%>" />
         <input type="submit" name="gravar" value="Gravar" >
         <input type="RESET" value="Limpar">
       </div></td>
   </tr>
 </table>
</form>

 

upload.asp

	<!--#include file="config.asp" -->
	<% 
	'Instancia o componente
	SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
	server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores

		'Configura o caminho onde arquivo será salvo
		SaFileUp.Path = Server.MapPath("../../v2/arquivos/")
                       'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\

		'Você pode usar também o caminho relativo se preferir
		'SaFileUp.Path = Server.MapPath("./upload/")

		'Caso o usuário não indique um arquivo para upload, informa erro.
		If SaFileUp.IsEmpty Then
				response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
		Else
			'Salva o arquivo no servidor
			SaFileUp.Save
call connect
dim rx, proximo, nome_arq, status, tipo, rs, tamanho
set rx = con.execute("SELECT max (Codigo) as Cod FROM Arquivo")
proximo = rx("Cod")+1

			nome_arq = Right(SaFileUp.Form("arquivo"),Len(SaFileUp.Form("arquivo"))-InstrRev(SaFileUp.Form("arquivo"),"\"))

	status = "N"
	tipo = "XML"

	tamanho = SaFileUp.TotalBytes
	'if tamanho >= 1048576  then ' É mega byte
		'tamanho = round(tamanho / 1048576)&"MB"
	if tamanho >= 1024 then ' E kByte
		tamanho = round(tamanho / 1024) &"KB"
	end if

set rs = con.execute("INSERT INTO Arquivo(Codigo,nome,cnpj,status,tipo, caminho, tamanho)values('"&proximo&"', '"&left(right(SaFileUp.Form("arquivo"),13),9)&"', '"&right(left(nome_arq,14),14)&"', '"&status&"', '"&tipo&"', '"&right(SaFileUp.Form("arquivo"),29)&"', '"&tamanho&"')")

			'response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
		End if

		'Gera um link html para retornar a pagina anterior
		response.write ("<script>alert('Nota Fiscal  salvo com sucesso!');location='backnet_notasXML.asp'</script>")

	Set SaFileUp = Nothing 
%>

 

Hj tem que salvar os arquivo com o nome desejado e em seguida quando ele é enviado eu pego os dados tipo CNPJ e Número da Nota.

 

O que eu queria era salvar e depois altar os nomes colocando o cnpj da loja e o número da nota.

[xanburzum 169]

na verdade você quer fazer múltiplos uploads para o server. Procure no fórum que opstei um exemplo onde se poe enviar vários arquivos.

[Gilberto Jr 26]

na verdade você quer fazer múltiplos uploads para o server. Procure no fórum que opstei um exemplo onde se poe enviar vários arquivos.

 

 

Xan, eu achei este arquivo

<!--#include file="classUpload/clsUpload.asp"-->
<!--#include file="classJson/JSON_2.0.4.asp"-->

<%

'------------------------------------------------------------------------
'Gera uma string aleatória com 'n' dígitos
'Usado para criar um nome aleatório para o arquivo
function fnGeraChave(n)
	dim s

	randomize
	s = ""
	while len(s) < n
		s = chr (int((57 - 48 + 1) * Rnd + 48)) + s
	wend
	fnGeraChave = s
end function
'------------------------------------------------------------------------

Response.Charset="ISO-8859-1"

dim objUp			'Instância da classe upload (definida no arquivo clsUpload.asp)
dim objJson			'Instância da classe JSON (definida no arquivo JSON_2.0.4.asp)
dim diretorio		'Diretório destino
dim nomeOriginal	'Nome original do arquivo
dim nomeArquivo		'Nome temporário do arquivo 
					'(Alterado para evitar que arquivos com mesmo nome se sobrescrevam)

'Instancia a classe clsUpload
set objUp = New clsUpload

'Instancia a classe JSON (para enviar a resposta)
Set objJson = jsObject()

'Campos passados pelo Uploadify:
'	- Filename	Nome original do arquivo enviado
'	- folder	Este campo é definido pelo parâmetro 'folder' do uploadify - não estamos usando
'	- Filedata	Os bytes (stream) que compõem o arquivo
'	- Upload	Só achei o valor 'Submit Query' neste campo

if objUp.fields("Filedata").length <> 0 and objUp.fields("Filedata").length & "" <> "" then

	nomeOriginal = objUp.fields("Filename").value
	nomeArquivo = fnGeraChave(20) & "_" & nomeOriginal

	'O diretório destino é definido aqui, como pasta filha 'uploads' da pasta atual
	diretorio = request.serverVariables("PATH_TRANSLATED")
	diretorio = left (diretorio,instrRev(diretorio,"\")) & "upload\"

	'Salva o arquivo (Lembre-se de dar direito de escrita para o usuário IUSR!)
	objUp.fields("Filedata").saveAs(diretorio & nomeArquivo)


	'Envia os dados do arquivo via JSON (pode ser que você precise deles no outro lado)
	objJson("result") = "OK"
	objJson("nomeArquivo") = nomeArquivo
	objJson("tamArquivo") = objUp.fields("Filedata").length 
	objJson("nomeOriginal") = nomeOriginal

else
	'Ocorreu um erro no envio
	objJson("result") = "ERRO"
end if

'Envia o JSON para o cliente
objJson.flush

'Destroi as instâncias
Set objUp = Nothing
Set objJson = Nothing

%>

pra uploads múltiplos e como eu faço para eu colocar para enviar para para a pasta certa.

 

Eu quero enviar para a pasta

ftp.extranetmissbella.com.br/web/v2/arquivos/

os arquivos de envio "html" fica na pasta

ftp.extranetmissbella.com.br/web/adm/xml/upload/

[xanburzum 169]

'O diretório destino é definido aqui, como pasta filha 'uploads' da pasta atual

diretorio = request.serverVariables("PATH_TRANSLATED")

diretorio = left (diretorio,instrRev(diretorio,"\")) & "upload\"

 

altere para sua necessidade

[Gilberto Jr 26]

Neste arquivo eu consigo fazer o upload dos arquivos se os dados estiver dentro da pasta onde esta com permissão de escrita.

<!--
Arquivo original baixado do endereço http://www.uploadify.com/

Originalmente apenas era possível a utilização de PHP.
Fiz muitas buscas mas somente encontrei PHP e outras linguagens que NÃO ASP.

http://www.valterfurtado.com/blog
valter@valterfurtado.com

26 de novembro de 2009
Vitória - ES/Brasil
-->
<%
Dim PastadeDestino, Pasta

Pasta = Request.QueryString("folder")
PastadeDestino = Server.mapPath(Pasta)

Dim Form: Set Form = New ASPForm %>
<!--#INCLUDE FILE="upload.asp"-->
<% 

Server.ScriptTimeout = 2000
Form.SizeLimit = &HA00000

If Form.State = 0 Then
 Dim File, NomedoArquivo
 For Each File In Form.Files.Items
	If Len(File.FileName) > 0 Then
       NomedoArquivo = ArquivoNomeUnico(File.FileName, PastadeDestino)

       File.SaveAs PastadeDestino & "\" & NomedoArquivo
       Response.Write "<br>Arquivo salvo em <b>" & PastadeDestino & "</b> com o nome de <b>" & NomedoArquivo & "</b>"

  End If
 Next
ElseIf Form.State > 10 then
 Const fsSizeLimit = &HD
 Select case Form.State
	case fsSizeLimit: response.write  "<br>Arquivo (" & Form.TotalBytes & "B) acima do tamanho (" & Form.SizeLimit & "B)<br>"
	case else response.write "<br>Ocorreram erros!<br>"
 end Select
End If

Dim gFS
Function ArquivoNomeUnico(NomedoArquivo, PastadeDestino)
 if isempty(gFS) then Set gFS = CreateObject("Scripting.FileSystemObject")
 Dim Contador, DestinoCompleto, NovoNome
 Contador = 1
 NovoNome = NomedoArquivo

 if gFS.FileExists(PastadeDestino & "\" & NovoNome) then
Do 
	Contador = Contador + 1
	NovoNome = Contador & "-" & NomedoArquivo
Loop while gFS.FileExists(PastadeDestino & "\" & NovoNome)
 end if
 ArquivoNomeUnico = NovoNome
End Function
'#######################################################
%>

 

Eu quero saber como mudo o local da pasta onde eu desejo que fique os arquivos.