ประกาศ Namespace System.IO ในการทำงานกับไฟล์ ก่อน

พร้อมทั้งสร้าง ฟังก์ชัน GetFileSize ดังรูป

ปล. หากต้องการ หาผลลัพธ์ออกมาเป็นหน่วย MB ก็ต้องหารด้วย  1024 อีกครั้งหนึ่ง หรือเปลี่ยนเป็น

Private Function GetFileSize(ByVal MyFilePath As String) As Long

Dim MyFile As New FileInfo(MyFilePath)
Dim FileSize As Long = Math.Ceiling((MyFile.Length / 1024 * 1024))
Return FileSize

End Function

จากนั้นเขียนคำสั่งในปุ่ม BtnGetFileSize ดังนี้

Private Sub BtnGetFileSize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetFileSize.Click

    LbShowFileSize.Text &= Format(GetFileSize(TxtFilePath.Text), "#,#") & " kb"

End Sub

จากนั้นเขียนคำสั่งส่วนของ BtnBrowse_click ดังนี้

Private Sub BtnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBrowse.Click

Try
   OpenFileDialog1.ShowDialog()
   TxtFilePath.Text = OpenFileDialog1.FileName
Catch ex As Exception
    MsgBox(ex.Message)
End Try

End Sub