PureBasic

Bonsoir,

Je viens de lire un ouvrage consacré à l'ancêtre GWBasic.
La fonction Close() (sans spécifier le numéro de fichier à fermer) ferme tous les fichiers en ccours d'utilisation. Je voudrais savoir s'il est possible d'utiliser dans un programme closefile() pour fermer tous les fichiers en cours d'utilisation. Je sais que en terminant un programme écrit en PureBasic tous les fichiers sont automatiquement fermés mais je voudrais l'utiliser dans mon programme.
Soyez indulgeant si mais questions vous paraissent bêtes mais je suis un grand débutant.

Merci

Henri

Si je devais avoir besoin de cette fonction, je ferais quelque chose comme ça:

Code : Tout sélectionner

Enumeration
  #Fichier   ;peu importe l'ordre de declaration de la constante #Fichier
  #BOUTON
  #StringGadget
EndEnumeration

Global fichier.l

Procedure Close_all_file()
  For a = 0 To fichier-1
    close(#Fichier+fichier)
  Next
  ProcedureReturn 1
EndProcedure
  
;Au depart fichier=0

If  CreateFile(#Fichier+fichier, NomFichier$)
  fichier=fichier+1            ;on incremente le compteur à chaque fois!
  ;.........
EndIf 
 
If  OpenFile(#Fichier+fichier, NomFichier1$)
  fichier=fichier+1
  ;.........  
EndIf 
  
If  OpenFile(#Fichier+fichier, NomFichier2$)
  fichier=fichier+1    
  ;.........
EndIf  
  
;On appelle la procedure pour tout fermer
Close_all_file()

Décidement, il m'en reste beaucoup de choses à apprendre.

Merci Nico

PureBasic

CloseFile()

CloseFile()