Example - LOF Function

1. Sub Main()

   1. Dim FileLength

      Open "TESTFILE" For Input As #1

      FileLength = LOF(1)

      Print FileLength

      Close #1

   End Sub