Returns a Long specifying the current read/write position within a file opened using the Open statement.
Seek(filenumber) |
The required filenumber argument is an Integer containing a validfile number.
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. |
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) |
See Also |
Get Statement, Open Statement , Put Statment, Seek Statement, Loc Function |