Conoscere la dimensione di un file

Da Gambas-it.org - Wikipedia.

Per conoscere la dimensione di un file, si potranno adottare almeno quattro modalità.


Uso della funzione Lof()

La funzone Lof() restituisce proprio la lunghezza in byte di un file:

Public Sub Main()

 Dim fl As File


  fl = Open "/percorso/del/file" For Read
 
  Print Lof(fl)

  fl.Close

End


Uso della proprietà .Size della Classe Stat

La Classe Stat restituisce una serie di informazioni relative ai file.

Un esempio può essere il seguente:

Public Sub Button1_Click()

 Dim s As String

   s = Stat("percorso_del_file").Size

   Print "La dimensione del file è: "; s; " byte"

End


Uso della funzione Len()

Useremo la funzione Len() per conoscere la lunghezza della stringa di dati restituita dalla funzione .Load della Classe File:

Public Sub Button1_Click()

 Dim s As String

   s = File.Load("percorso_del_file")

   Print "La dimensione del file è: "; Len(s); " byte"

End


Uso di Open...For Read

Potremo usare anche leggere la quantità di dati contenuti in un file con Open...For Read

Un esempio può essere il seguente:

Public Sub Button1_Click()

 Dim fl As File
 Dim b as Byte
 Dim i As Integer

  fl = Open "percorso_del_file" For Read

  While Not Eof(fl)
   Read #fl, b
   Inc i
  Wend
 
  Print "La dimensione del file è: "; i; " byte"

  fl.Close

End