FileSize()

Syntaxe

Resultat.q = FileSize(NomFichier$)

Renvoie la taille d'un fichier.

Arguments

NomFichier$

Le nom du fichier.

Valeur de retour

Renvoie la taille du fichier en octets ou l'une des valeurs suivantes:

  -1: Fichier inexistant.
  -2: Le fichier est en fait un répertoire.

Exemple

  Procedure.s TailleFichier(NomFichier$)
  Taille = FileSize(NomFichier$)  
  Select Taille
    Case -2
      Reponse$  = "C'est un répertoire"
    Case -1
       Reponse$ = "Le fichier n'existe pas"
    Default
      Reponse$  = "La taille du fichier est de " + Str(Taille) + " Octets."
  EndSelect
  ProcedureReturn Reponse$
  EndProcedure

  Debug TailleFichier(#PB_Compiler_Home)
  Debug TailleFichier(#PB_Compiler_Home + "Compilers\FichierInconnu.exe")
  Debug TailleFichier(#PB_Compiler_Home + "Compilers\PureBasic.exe")

Voir aussi

DirectoryEntrySize()

OS Supportés

Tous