Upload de arquivos
Como fazer um upload de arquivos em ASP.NET
- Fabricante: Microsoft
- Documentação: http://msdn.microsoft.com/en-us/library/aa478971.aspx
Exemplo de implementação:
<%@ Page Language="vb" %>
<html>
<Script Language="VB" RunAt="Server">
' Configura qual a pasta do servidor os arquivos serão salvos.
'Não terminar o caminho com \
Dim sPasta as String = "C:\ServerFolder"
Sub Page_Load(Sender as Object, e as EventArgs)
Dim oPasta as string
'Verifica se a pasta existe, se não existe cria.
oPasta = Dir(MyPath, vbDirectory)
if oPasta="" Then
MkDir(sPasta)
end if
End Sub
Sub Upload_Click(ByVal Sender As Object, ByVal e As EventArgs)
'Valida o tamanho e as extenção dos arquivos permitidos
Dim sExtencao As String = System.IO.Path.GetExtension(Arquivo.PostedFile.FileName)
Dim iTamanho As Long = Arquivo.PostedFile.ContentLength
If sExtencao = ".jpg" Or sExtencao = ".gif" Or sExtencao = ".jpeg" Or sExtencao = ".png" Then
If iTamanho <= 102400 Then
' Exibe os detalhes do arquivo que foi enviado
NomeArquivo.InnerHtml = Arquivo.PostedFile.FileName
ConteudoArquivo.InnerHtml = Arquivo.PostedFile.ContentType
TamanhoArquivo.InnerHtml = Arquivo.PostedFile.ContentLength
Detalhes.Visible = True
' Recupera o nome do arquivo original
Dim strNomeArquivo As String
strNomeArquivo = Arquivo.PostedFile.FileName
Dim c As String = System.IO.Path.GetFileName(strNomeArquivo)
' Salva o arquivo na pasta de destino
Try
Arquivo.PostedFile.SaveAs(sPasta + c)
Span1.InnerHtml = "Seu arquivo foi enviado com sucesso para: " & sPasta & "\" & c
Catch Exp As Exception
Span1.InnerHtml = "Um erro ocorreu ao tentar salvar o arquivo: " & Exp.Message
Detalhes.Visible = False
Span2.Visible = False
End Try
Else
Span1.InnerHtml = "Erro: Tamanho máximo do arquivo atingido, tamanho máximo 100k."
Detalhes.Visible = False
Span2.Visible = False
End If
Else
Span1.InnerHtml = "Erro: Tipo de arquivo não permitido: " & sExtencao & "."
Detalhes.Visible = False
Span2.Visible = False
End If
End Sub
</Script>
<body>
<b>Enviando arquivos via Asp .Net</b>
<p>
<Form Method="Post" EncType="Multipart/Form-Data" RunAt="Server">
Selecione o arquivo que será enviado: <BR>
<Input ID="Arquivo" Type="File" RunAt="Server" Size="40"> <BR><BR>
<Input Type="Submit" Value="Upload" OnServerclick="Upload_Click" RunAt="Server">
<P>
<Div ID="Detalhes" Visible="False" RunAt="Server">
Nome do arquivo: <Span ID="NomeArquivo" RunAt="Server"/> <BR>
Conteúdo do arquivo: <Span ID="ConteudoArquivo" RunAt="Server"/><BR>
Tamanho do arquivo: <Span ID="TamanhoArquivo" RunAt="Server"/>bytes<BR>
</Div>
<Span ID="Span1" Style="Color:Red" RunAt="Server"/>
<Span ID="Span2" Style="Color:Red" RunAt="Server"/>
</P>
</Form>
</P>
</Body>
</html>