Siebel VB Language Reference > VB Language Reference >
This standard VB function returns the current offset within an open file.
The number given in the Open statement, of the open file to query
For random files, the number of the last record read or written; for files opened in append, input, or output mode, the current byte offset divided by 128; for files opened in binary mode, the offset of the last byte read or written.
This example creates a file of account numbers as entered by the user. When the user finishes, the example displays the offset in the file of the last entry made.
Dim filepos as Integer
Dim acctno() as Integer
Dim x as Integer
x = 0
Open "c:\TEMP001" for Random as #1
x = x + 1
Redim Preserve acctno(x)
acctno(x) = 234
If acctno(x) = 0 then
Put #1,, acctno(x)
filepos = Loc(1)