Loc

Loc function returns a number indicating the current position within a file opened using the Open statement.

The required FileNum argument must contain an Integer representing any valid number associated with an open file.

Syntax

Loc(FileNum)

FileNum:

An Integer or numeric expression representing any valid number in the range 1 to 511 inclusive, which is referenced by the file system to be associated with an open file.

Return Value

Returns a Long representing the current position within a file, the value dependant upon which file access mode the file was opened with:

• If the file was opened in Random mode, the Loc function will return a number representing the last record read from or written to the file.
• If the file was opened in Sequential mode, the Loc function will return a number representing the current byte position in the file divided by 128. (However, information returned by Loc for Sequential files is neither used nor required.)
• If the file was opened in Binary mode, the Loc function will return a number representing the position of the last byte read from or written to the file.

Related Functions

EOF| FileLen | LOF| Seek

Example

Dim lonLoc As Long

Dim strLine As String

Open "TESTFILE.txt" For Binary As #1	' Open file

Do While lonLoc < LOF(1)			' Loop until end of file

	strLine = strLine & Input(1, #1)	' Read character into variable

	lonLoc = Loc(1)			' Get current position within file

Loop

<statements> 			' Do stuff with retrieved data

Close #1					' Close file