Returns the current read/write position within an open file.
Loc(filenumber)
The filenumber argument is any valid file number.
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. |
EOF Function, LOF Function.
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.