如何上传任何类型的文件asp.net VB web

Protected Sub UploadButton_Click(sender As Object, e As EventArgs)
    If FileUploadControl.HasFile Then
        Try
            ' 获取上传的文件对象
            Dim uploadedFile As HttpPostedFile = FileUploadControl.PostedFile
            ' 验证文件类型和大小
            If uploadedFile.ContentType.StartsWith("image/") AndAlso uploadedFile.ContentLength < 1048576 Then
                ' 生成唯一的文件名
                Dim fileName As String = Guid.NewGuid().ToString() + Path.GetExtension(uploadedFile.FileName)
                ' 保存文件到指定路径
                uploadedFile.SaveAs(Server.MapPath("~/uploads/") + fileName)
                ' 显示成功消息
                StatusLabel.Text = "文件上传成功！"
                ' 可以在这里进行进一步的文件处理
            Else
                StatusLabel.Text = "只允许上传图片文件，且文件大小不能超过1MB。"
            End If
        Catch ex As Exception
            StatusLabel.Text = "文件上传失败：" + ex.Message
        End Try
    End If
End Sub