Écrire une ligne à la fin de fichier dans un fichier texte

//Méthode pour créer un fichier, ecrire une ligne, fermer le fichier. Utilisable pour l"écriture de log par exemple.

 

 

sFichier, sLigne1, sLigne2 sont des chaînes

nIDFichier est un entier

 

sFichier     = "C:\log.txt"

sLigne1     = "Jour : "+DateVersChaîne(DateSys(),"JJ/MM/AAAA")

sLigne2     = "Heure : "+HeureVersChaîne(HeureSys(),"HH:mm:SS")

 

nIDFichier = fOuvre(sFichier,foCréationSiInexistant+foLectureEcriture)

 

SI nIDFichier=-1 ALORS

 

     Erreur("Impossible d"ouvrir/créer le fichier suivant : "+sFichier+RC+ErreurInfo(errComplet))

     RETOUR

 

FIN

 

 

fPositionne(nIDFichier,0,fpFin)

 

SI PAS fEcritLigne(nIDFichier,sLigne1+" "+sLigne2) GOTO erreur_proc

 

 

fFerme(nIDFichier)

 

Info("Ligne écrit dans le fichier suivant : "+sFichier)

 

 

RETOUR

 

erreur_proc:

 

Erreur("Impossible d"écrire dans le fichier suivant : "+sFichier+RC+ErreurInfo(errComplet))