Tulong sa LibreOffice 25.8
Ibinabalik ang laki ng isang bukas na file sa bytes.
Lof (FileNumber) Hangga't
Long
FileNumer: Anumang numeric na expression na naglalaman ng file number na tinukoy sa Bukas pahayag.
Upang makuha ang haba ng isang file na hindi bukas, gamitin ang FileLen function.
5 Di-wastong procedure call
52 Di-wastong pangalan ng file o numero ng file
  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText Bilang Variant ' Dapat ay isang variant
      Dim aFile As String
      aFile = "C:\Users\ThisUser\data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Maghanap ng #iNumber,1 ' Posisyon sa simula
      Ilagay ang #iNumber, , "Ito ang unang linya ng teksto" ' Punan ang linya ng teksto
      Ilagay ang #iNumber, , "Ito ang pangalawang linya ng text"
      Ilagay ang #iNumber, , "Ito ang ikatlong linya ng 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
      Ilagay ang #iNumber, , "Ito ay isang bagong text"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Ilagay ang #iNumber, 20, "Ito ang text sa record 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub
  
  Sub ExampleRandomAccess
      Dim iNumber As Integer
      Dim sText Bilang Variant ' Dapat ay isang variant
      Dim aFile As String
      aFile = "~/data.txt"
      iNumber = Freefile
      Open aFile For Random As #iNumber Len=32
      Maghanap ng #iNumber,1 ' Posisyon sa simula
      Ilagay ang #iNumber, , "Ito ang unang linya ng teksto" ' Punan ang linya ng teksto
      Ilagay ang #iNumber, , "Ito ang pangalawang linya ng text"
      Ilagay ang #iNumber, , "Ito ang ikatlong linya ng 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
      Ilagay ang #iNumber, , "Ito ay isang bagong text"
      Get #iNumber, 1, sText
      Get #iNumber, 2, sText
      Ilagay ang #iNumber, 20, "Ito ang text sa record 20"
      Print Lof(#iNumber)
      Close #iNumber
  End Sub