Private Function Load_file() As Boolean
        Load_file = True
        If FileHinh.FileName <> "" Then
            If IsPostBack Then
                'khai bao duong dan luu file
Dim pa As String = Server.MapPath("~/hinhanh/")
                Dim fileOk As Boolean = False
                'neu dieu khien filehinh co up file
If FileHinh.HasFile Then
                    Dim file As String
      file = System.IO.Path.GetExtension(FileHinh.FileName).ToLower()
                    Dim allowed As String() = {".jpg", ".gif"}
                    'kiem tra xem duoi mo rong cua file upload co thuoc tap tin duoi cho phep hay ko
                    For i As Integer = 0 To allowed.Length - 1
                        If file = allowed(i) Then
                            fileOk = True
                        End If
                    Next
If fileOk Then
                        Try
                            'thuc hien lua file upload vao duong dan
                    FileHinh.PostedFile.SaveAs(pa & FileHinh.FileName)
                    HINH.ImageUrl = "~/hinhanh/" & FileHinh.FileName
                    LB.text="Upload Thành Công"
                            'loi save file
                        Catch ex As Exception
                            lb.Text = "không thể save file"
                            Load_file = True
                        End Try
                    Else
                        lb.Text = "sai đường dẫn file"
                        Load_file = False
                    End If
                Else
                    lb.Text = "file không tìm thấy"
                    Load_file = False
                End If
            End If
        Else
            lb.Text = "chưa chuẩn file"
            Load_file = False
        End If
    End Function

Call Load_file()