Contenuto

# Funzione Lof

Restituisce la dimensione di un file in byte.

### Sintassi:

    Lof (NumeroFile) As Long

### Tipo di ritorno:

Long

### Parametri:

NumeroFile: espressione numerica contenente il numero del file specificato nell'istruzione Open.

Per determinare la lunghezza di un file non aperto, usare la funzione FileLen.

### Codici di errore:

5 Richiamo di procedura non valido

52 Nome file o numero file errato

### Esempio:

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Deve essere una variante
          Dim aFile As String
          aFile = "C:\Users\ThisUser\data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Posizione iniziale
          Put #iNumber, , "Questa è la prima riga di testo" ' Riempie la riga con testo
          Put #iNumber, , "Questa è la seconda riga di testo"
          Put #iNumber, , "Questa è la terza riga di testo"
          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 #iNumber, ,"Questo è un nuovo testo"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Questo è il testo del record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

      Sub ExampleRandomAccess
          Dim iNumber As Integer
          Dim sText As Variant ' Deve essere una variante
          Dim aFile As String
          aFile = "~/data.txt"
          iNumber = Freefile
          Open aFile For Random As #iNumber Len=32
          Seek #iNumber,1 ' Posizione iniziale
          Put #iNumber, , "Questa è la prima riga di testo" ' Riempie la riga con testo
          Put #iNumber, , "Questa è la seconda riga di testo"
          Put #iNumber, , "Questa è la terza riga di testo"
          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 #iNumber, ,"Questo è un nuovo testo"
          Get #iNumber, 1, sText
          Get #iNumber, 2, sText
          Put #iNumber, 20, "Questo è il testo del record 20"
          Print Lof(#iNumber)
          Close #iNumber
      End Sub

Argomenti correlati

Istruzione Close

Istruzione Print#

Istruzione Open

Istruzione Get

Sostienici!