Loc Function

Description

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

Syntax

Loc(filenumber)

The filenumber argument is any valid file number.

Remarks

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

File Access

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. (Note that information returned by Loc for sequential files is neither used nor required.)

Binary

Position of the last byte read or written.


See Also

EOF Function, LOF Function.

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.


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