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.

 

Parameter

Description

StreamNum

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

 

See Also:

Seek

Example:


Sub Main
  Open "XXX" For Input As #1
  Debug.Print Seek(1) ' 1
  Line Input #1,L$
  Debug.Print Seek(1)
  Close #1
End
Sub