Declare Function LOF ( ByVal filenum As Integer ) As LongInt

result = LOF( filenum )

filenum

Длина в байтах открытого файла на диске.

Возвращает длину в байтах файла, открытого ранее с помощью Open , используя данный filenum.

При использовании с Open Com , возвращается длина данных отложенных для чтения в буфере-приемнике.

Dim f As Integer
f = FreeFile
Open "file.ext" For Binary As #f
Print LOF(f)
Close #f

• Нет
  
  

• LOC
  
• EOF
  
• Open