Probleme fichier

Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008
-
salut a tous

j'ai un petit probleme de conservation de donnee dans un fichier.
au fur et a mesure du deroulement du programme, j'ecris des donnees dans un fichier et lorsque je ferme l'appli, je ne retrouve que la premiere ligne dans mon fichier.
j'ai verifie pendant l'execution que l'ecriture etait bonne en ouvrant le fichier et j'ai constate que tout allait bien.
donc a la fermeture tout est efface sauf la premiere ligne.

si quelqu'un a une idee du bug ou d'une instruction que j'ai pu mettre en trop.
merci.

6 réponses

Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

Tu peux montrer un peu ton code stp
Messages postés
36
Date d'inscription
mardi 3 décembre 2002
Statut
Membre
Dernière intervention
24 juin 2004

A tu pensé à ouvrir ton fichier avec
"For Append" comme ci-dessous

Open "C:\toto.txt" For Append As #1

sinon ton fichier ne s'incrémente pas
mais contient toujours la dernière ligne écrite.

AraXeen
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
'lut

t'as peut etre oublié de fermer ton fichier a la fermeture de ton appli

:clown) BasicInstinct :clown)
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008

des que j'ai des infos a ecrire j'execute cette routine :

Public Function EcrireLog(msg As String)

Open "" & logFile & "" For Append As #2

Write #2, msg

Close #2

End Function

sanchant que logfile correspond a mon fichier
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008

je ne pense pas que ce sois un probleme de fermeture de fichier parc que a chaque fois j'execute ceci :

Public Function EcrireLog(msg As String)

Open "" & logFile & "" For Append As #2

Write #2, msg

Close #2

End Function
Messages postés
121
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
8 août 2008

oui, c'est comme ca qu'il est ouvert
d'abord en output au debut et apres en append