Seek Function

Syntax:

Seek(StreamNum)

Group:

File

Description: 

Return StreamNum current position. For Random mode files this is the record number. The first record is 1. Otherwise, it is the byte position. The first byte is 1.

NOTE: Unicode text files opened with Input mode use character positions, not byte positions.

Parameters:

Parameter

Description

StreamNum

Streams 1 through 255 are private to each macro. Streams 256 through 511 are shared by all macros.

Example:

Sub Main
  Open "XXX" ForInput As #1
  Debug.Print Seek(1) ' 1
  LineInput #1,L$
  Debug.Print Seek(1)
  Close #1
EndSub

See Also:

Seek