Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.ShowDialog() TextBox1.Text = OpenFileDialog1.FileName End Sub
Dim length As Long
FileOpen(1, TextBox1.Text, OpenMode.Input)
Get length of file. This will return the size of the file in Bytes using the LOF Function
length = LOF(1)
Display the Length of the File in MessageBox
MsgBox("The length of the file is: " & length & " bytes")
Close the file
FileClose(1)