Seek Function

Returns a Long specifying the current read/write position within a file opened using the Open statement.

Syntax

Seek(filenumber)

The required filenumber argument is an Integer containing a validfile number.

Remarks

Seek returns a value between 1 and 2,147,483,647 (equivalent to 2^31 – 1), inclusive.

The following describes the return values for each file access mode.

Mode
Returned Value
Random Number of the next record read or written
Binary,
Output,
Append,
Input
Byte position at which the next operation takes place. The first byte in a file is at position 1, the second byte is at position 2, and so on.

Example

For files opened in other modes, Seek returns the byte position at which the next operation takes place. Assume TESTFILE is a file containing a few lines of text.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1)             ' Loop until end of file.
    Get(#1,MyChar)              ' Read next character of data.
    Trace Seek(1)             
Loop Close #1 ' Close file.

See Also

Get Statement, Open Statement , Put Statment, Seek Statement, Loc Function