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
CloseFile()
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()