Partial Class login_CreateUser
    Inherits System.Web.UI.Page


    Protected Sub FileUpload_Mobile_Init(sender As Object, e As EventArgs)

    End Sub

    Protected Sub FileUpload_Desktop_Init(sender As Object, e As EventArgs)

    End Sub




    Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
        Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg", "doc", "xls"}
        Dim ext As String = System.IO.Path.GetExtension(FileUpload_Mobile.PostedFile.FileName)
        Dim isValidFile As Boolean = False
        For i As Integer = 0 To validFileTypes.Length - 1
            If ext = "." & validFileTypes(i) Then
                isValidFile = True
                Exit For
            End If
        Next
        If Not isValidFile Then
            lblMessage_mob.ForeColor = System.Drawing.Color.Red
            lblMessage_mob.Text = "Invalid File. Please upload a File with extension " &
                            String.Join(",", validFileTypes)
        Else
            lblMessage_mob.ForeColor = System.Drawing.Color.Green
            lblMessage_mob.Text = "File uploaded successfully."
        End If
    End Sub

    Protected Sub btn_Save_Changes_Click(sender As Object, e As EventArgs)
        Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg", "doc", "xls"}
        Dim ext As String = System.IO.Path.GetExtension(FileUpload_Desktop.PostedFile.FileName)
        Dim isValidFile As Boolean = False
        For i As Integer = 0 To validFileTypes.Length - 1
            If ext = "." & validFileTypes(i) Then
                isValidFile = True
                Exit For
            End If
        Next
        If Not isValidFile Then
            lbl_message_desktop.ForeColor = System.Drawing.Color.Red
            lbl_message_desktop.Text = "Invalid File. Please upload a File with extension " &
                            String.Join(",", validFileTypes)
        Else
            lbl_message_desktop.ForeColor = System.Drawing.Color.Green
            lbl_message_desktop.Text = "File uploaded successfully."
        End If
    End Sub

End Class