Categorias

Fazer upload de arquivos sem uso de componentes

Publicado por Rodrigo Araujo

Sem dúvida, a grande maioria das aplicação web, precisará realizar Uploads de arquivos para o servidor. Em muitos dos casos, os desenvolvedores optam por utilizar componentes pagos que realizam esta tarefa.

Com este código é possível realizar o Upload do arquivo, da máquina do cliente para o servidor web sem a necessidade de um componente especial para isso.

O único componente requerido, mas que já é padrão nos servidores IIS que rodam ASP é o FileSystemObject.




	Upload sem componente
E-mail:
Arquivo 1:
Arquivo 2:
"" then '" ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome else exit for end if next 'Determina o conteúdo do arquivo Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4 Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2 ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1)) 'Grava o arquivo if ArquivoNome <> "" then Set objArquivo = objFSO.CreateTextFile(PastaDestino & "" & ArquivoNome, true) objArquivo.WriteLine ArquivoConteudo objArquivo.Close Response.write "Arquivo " & PastaDestino & "" & _ ArquivoNome & " gravado com sucesso!
" Set objArquivo = nothing end if end if Loop Set objFSO = nothing %> Tags: