Inhoud
Index 🔎︎

# Functie Lof

Geeft de grootte van een open bestand in bytes terug.

### Syntaxis:

    Lof (FileNumber)

### Geretourneerde waarde:

Long

### Parameters:

BestandsNummer: Een numerieke expressie die het bestandsnummer dat gespecificeerd is door de instructie Open bevat.

Teneinde de grootte van een bestand dat niet is geopend te verkrijgen moet u de FileLen-functie gebruiken.

### 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