Returns a Long specifying the current read/write position within a file opened using the Open statement.
Seek( filenumber )
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.
Number of the next record read or written
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.
This example uses the Seek function to return the current file position. The example assumes TESTFILE is a file containing records of the user-defined type is a file containing records of the user-defined type Record .
For files opened in Random mode, Seek returns number of next record.
Dim MyRecord As Record ' Declare variable. Open "TESTFILE" For Random As #1 Len = Len(MyRecord) Do While Not EOF(1) ' Loop until end of file. Get #1, , MyRecord ' Read next record. Debug.Print Seek(1) ' Print record number to the ' Immediate window. Loop Close #1 ' Close file.
For files opened in modes other than Random mode, Seek returns the byte position at which the next operation takes place. Assume TESTFILE is a file containing a few lines of text.