More info about Random Access files

[bplus]

This works fine exactly 15 * 6 for LOF no need for counting CRLF$

Code: (Select All)

' Verify the random access file
Print: Print "Reading records from random access file:"
Open RandFile$ For Random As #1 Len = Maxlength
Print "length of file ="; LOF(1); " this = exactly 15 * 6"

For i = 1 To 6
    Get #1, i, record: Print record
Next
End