Inhoud

# Functie Lof

Geeft de grootte van een open bestand in bytes terug.

### Syntaxis:

    Lof (BestandsNummer) As Long

### Geretourneerde waarde:

Long

### Parameters:

BestandsNummer: Een numerieke expressie die het bestandsnummer bevat dat bepaald is met de instructie Open voor het betreffende bestand.

Om de grootte van een ongeopend bestand te bepalen, gebruik de functie FileLen.

### Foutcodes:

5 Ongeldige aanroep van procedure

52 Ongeldige bestandsnaam/ongeldig bestandsnummer

### Voorbeeld:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sTekst As Variant ' Moet een variant zijn
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Zoek #iGetal,1 REM Positie bij het begin
          Put #iGetal,, "Dit is de eerste tekstregel" ' Vul de regel met tekst
          Put #iGetal,, "Dit is de tweede tekstregel"
          Put #iGetal,, "Dit is de derde tekstregel"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Put #iGetal,, "Dit is een nieuwe tekst"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iGetal, 20, "Dit is de tekst in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Moet een variant zijn
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iGetal,1 ' Beginpositie voor het zoeken
          Put #iGetal, "Dit is de eerste tekstregel" 'Vul de regel met tekst
          Put #iGetal,, "Dit is de tweede tekstregel"
          Put #iGetal,, "Dit is de derde tekstregel"
          Seek #iNumber,2
          Get #iNumber, , sText
          Print sText
          Close #iNumber
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Get #iNumber, 2, sText
          Put #iGetal,, "Dit is een nieuwe tekst"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iGetal, 20, "Dit is de tekst in record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Verwante onderwerpen

Instructie Close

Instructie Print#

Instructie Open

Instructie Get