Loc Function

Description

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

Syntax

Loc(filenumber)

The filenumber named 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.
Binary	Position of the last byte read or written.

See Also

EOF Function, LOF Function, Open Statement.

Example

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

Open "TESTFILE" For Input As #1    ' Open file just created.
Do While Not EOF(1)    ' Loop until end of file.
    Line Input #1, MyLine    ' Read line into variable.
    MyLocation = Loc(1)    ' Get current position within file.
    ' Print to Debug window.
    Debug.Print MyLine; Tab; MyLocation    
Loop