Table of contents
TOC
Collapse the table of content
Expand the table of content

Loc Function

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Returns a Long specifying the current read/write position within an open file. SyntaxLoc(filenumber) The required filenumberargument is any validIntegerfile number. Remarks The following describes the return value for each file access mode:

ModeReturn Value
RandomNumber of the last record read from or written to the file.
SequentialCurrent byte position in the file divided by 128. However, information returned by Loc for sequential files is neither used nor required.
BinaryPosition 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 character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.
© 2018 Microsoft