Imports System.IO
 
    Public Function GetFileLength(ByVal FileName As String) As Long
        Return New FileInfo(FileName).Length
    End Function
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim filename As String = "C:\boot.ini"
        MessageBox.Show(GetFileLength(filename).ToString())
    End Sub