Änderungen implementierung filefilter upload foto

login/CreateUser.aspx.vb

@@ -2,4 +2,56 @@
 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