UniqueNet

    <form id="form1" runat="server">
    <div>
        <asp:FileUpload ID="fileUpload1" runat="server" />
        <br />
        <asp:Label ID="Label1" runat="server" Text=""></asp:Label>
    </div>
    <asp:Button ID="Enviar" runat="server" Text="Enviar" />
    </form>

 
    Protected Sub Enviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Enviar.Click
        'Verifica se ha arquivo a enviar
        If fileUpload1.HasFile Then
            Try
                'Indicar caminho e nome do arquivo
                fileUpload1.SaveAs(Server.MapPath("upload\") & fileUpload1.FileName)
                Label1.Text = String.Format("Arquivo: {0} <br /> Tamanho arquivo:{1} Kb <br />Tipo arquivo: {2}", fileUpload1.PostedFile.FileName, fileUpload1.PostedFile.ContentLength, fileUpload1.PostedFile.ContentType)
            Catch ex As Exception
                'Caso ocorra algum erro ao enviar o arquivo
                Label1.Text = "Erro: " & ex.Message.ToString
            End Try
        Else
            'Mensagem de arquivo enviado com sucesso
            Label1.Text = "Escolha um arquivo para envio."
        End If
    End Sub