Declare Function Seek ( ByVal filenum As Integer ) As LongInt

filenum

The file position where the next read or write operation will take place.

Позиция содержится в записях, если файл был открыт в режиме доступа Random , и в байтах в любом другом случае. Позиция 1 базируется на первой записи файла и находится в позиции 1.

Оператор Seek используется для установки позиции следующей операции чтения или записи.

Dim f As Integer, position As Integer

f = FreeFile
Open "file.ext" For Binary As #f

position = Seek(f)

Close #f

• Нет
  
  

• Seek (Оператор)
  
• LOC
  
• Open