Or you could use the FileLen() function
VB Code:
  1. Private Sub Command1_Click()

  2.     Caption = FileLen("C:\SomeFile.txt")

  3. End Sub