strFilename = IntControl (1004, 0, 0, 0, 0) ; We use this script as test input.

intFileGetLineCount = FileSize (strFilename) - StrLen (StrReplace (FileGet (strFilename), @LF, "")) ; FileGetLineCount.

Message (strFilename, intFileGetLineCount)
Exit