Olá pessoal, cá estou eu mais uma vez.
Hoje quero compartilhar com vocês uma experiência que tive em troca de servidores de hospedagem utilizando a plataforma Windows (ASP, ASP.Net).
Sabemos que programar em ASP às vezes não é nada fácil justamente por precisar muitas vezes de algum componente para determinada função, seja um upload, um redimensionamento de imagem, um gráfico, etc.
Pois bem, no meu antigo servidor eu utilizava um componente para Upload de arquivos que era o SAFileup da Soft Artisans fileup.softartisans.com, onde eu conseguia fazer upload de múltiplos arquivos utilizando o comando SaveAs, ou seja, para cada arquivo upado eu conseguia definir um nome sem maiores dificuldades e ainda conseguia direcionar cada campo para determinada pasta no servidor.
Com a troca do servidor, tenho atualmente instalado o componente ASPUpload da Persits www.aspupload.com, onde não o comando SaveAs.
Tendo tal necessidade, adaptei um código que funcionou como o comando SaveAs para múltiplos arquivos onde é possível também definir o nome de cada um.
Hoje vou apresentar um código onde todos os campos de arquivo do formulário são direcionados para uma determinada pasta.
Exemplo do código
Código:
Set upl = Server.CreateObject("Persits.Upload")
upl.Save "e:enderecofisicoupload" 'Salva na memória
conta=0
for x = 1 to 5
conta = conta+1
on error resume next 'Elimina a mensagem de erro se nem todos os campos de upload for preenchido
set foto = upl.Files("arquivo"&x&"")
arquivo = conta&".jpg"
foto.SaveAs "e:enderecofisicoupload"&arquivo
on error goto 0 'Elimina o on error resume next
next
Espero ter ajudado.
Dúvidas, podem perguntar.
Na semana que vem deixo aqui o exemplo para direcionar os arquivos à mais de uma pasta.
Abraços.