Loc Function

Returns a Long specifying the current read/write position within an open file.

Syntax

Loc(filenumber)

The required filenumber argument is any valid Integerfile number.

Remarks

The following describes the return value for each file access mode:

Mode
Return Value
Random Number of the last record read from or written to the file.
Sequential

Current byte position in the file divided by 128. However, information returned by Loc for sequential files is neither used nor required.

Binary Position of the last byte read or written.

Example

This example uses the Loc function to return the current read/write position within an open file.
This example assumes that TESTFILE is a text file with a few lines of sample data.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)        ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)  ' Read line into variable.
    MyLocation = Loc(1)             ' Get current position within file.
    Trace MyLine                    ' Print to the Output window.
    Trace Tab
    Trace MyLocation
Loop
Close #1                            ' Close file.

See Also

Writing Data to a File, Seek Statement , EOF Function, LOF Function, Seek Function