CCyrd‖Lof Function

Contents
QE3D5‖

# mDAPF‖Lof Function

3PR3T‖Returns the size of an open file in bytes.

### FVEx2‖Syntax:

    D84bA‖Lof (FileNumber) As Long

### bBBqF‖Return type:

Long

### WADQ4‖Parameters:

6oGoB‖FileNumber: Any numeric expression that contains the file number that is specified in the Open statement.

kFTvh‖To obtain the length of a file that is not open, use the FileLen function.

### SEjHR‖Error codes:

5 Invalid procedure call

52 Invalid file name or file number

### EFSA4‖Example:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
      VqNwD‖    Dim sText As Variant ' Must be a variant
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
      GKZLD‖    Seek #iNumber,1 ' Position at beginning
      Wt4ue‖    Put #iNumber, , "This is the first line of text" ' Fill line with text
      tX5qW‖    Put #iNumber, , "This is the second line of text"
      n2Vsu‖    Put #iNumber, , "This is the third line of text"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
      JcAYq‖    Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
      XsVuX‖    Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
      VMDEk‖    Dim sText As Variant ' Must be a variant
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
      4vB7g‖    Seek #iNumber,1 ' Position at beginning
      jFD5F‖    Put #iNumber, , "This is the first line of text" ' Fill line with text
      dFwTH‖    Put #iNumber, , "This is the second line of text"
      v8Ee2‖    Put #iNumber, , "This is the third line of text"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
      xzP6q‖    Put #iNumber, , "This is a new text"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
      RLNWV‖    Put #iNumber, 20, "This is the text in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Related Topics

Close Statement

Print# Statement

Open Statement

Get Statement

Please support us!