webfilecontrol.aspx.vb

Mastering VBNet Include Source Code

Imports System.io
Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents UploadFile As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile
        Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents File3 As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents File2 As System.Web.UI.HtmlControls.HtmlInputFile
    Protected WithEvents UploadFiles As System.Web.UI.HtmlControls.HtmlInputButton
            Protected WithEvents Submit1 As System.Web.UI.HtmlControls.HtmlInputButton
                
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub UploadFiles_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UploadFiles.ServerClick
        Dim fileName As String
        Dim filePath As String
        Dim UploadFolder As String = Server.MapPath("tempfiles")
        If Not System.IO.Directory.Exists(UploadFolder) Then
            System.IO.Directory.CreateDirectory(UploadFolder)
        End If
        If File1.PostedFile.FileName <> "" Then
            fileName = System.IO.Path.GetFileName(File1.PostedFile.FileName)
            filePath = UploadFolder & "\" & fileName
            File1.PostedFile.SaveAs(filePath)
            Label4.Text = "<B>File: " & File1.PostedFile.FileName & "</B>"
            Label4.Text = Label4.Text & "<BR>Size: " & File1.PostedFile.ContentLength
            Label4.Text = Label4.Text & "<BR>Type: " & File1.PostedFile.ContentType
            Label4.Text = Label4.Text & "<BR>Saved As: " & filePath
        End If
        If File2.PostedFile.FileName <> "" Then
            fileName = System.IO.Path.GetFileName(File2.PostedFile.FileName)
            filePath = UploadFolder & "\" & fileName
            File2.PostedFile.SaveAs(filePath)
            Label4.Text = Label4.Text & "<BR><BR>"
            Label4.Text = Label4.Text & "<B>File: " & File2.PostedFile.FileName & "</B>"
            Label4.Text = Label4.Text & "<BR>Size: " & File2.PostedFile.ContentLength
            Label4.Text = Label4.Text & "<BR>Type: " & File2.PostedFile.ContentType
            Label4.Text = Label4.Text & "<BR>Saved As: " & filePath
        End If
        If File3.PostedFile.FileName <> "" Then
            fileName = System.IO.Path.GetFileName(File3.PostedFile.FileName)
            filePath = UploadFolder & "\" & fileName
            'File3.PostedFile.SaveAs(filePath)
            Label4.Text = Label4.Text & "<BR><BR>"
            Label4.Text = Label4.Text & "<B>File: " & File3.PostedFile.FileName & "</B>"
            Label4.Text = Label4.Text & "<BR>Size: " & File3.PostedFile.ContentLength
            Label4.Text = Label4.Text & "<BR>Type: " & File3.PostedFile.ContentType
            Label4.Text = Label4.Text & "<BR>Saved As: " & filePath
        End If

    End Sub
End Class