[VB6] Rajouter du texte dans un fichier

Hello,

Je suis en train de créer une petite application visual basic qui prend du texte dans une base de donnée et la met dans un fichier texte. le problème est que je repasse une deuxième fois dans ma méthode avec un nouveau paramètre pour ma requete de base de donnée et que j'aimerais ajouter du texte dans mon fichier texte et à chaque fois que je fais ça, il m'ecrase mon fichier texte.

Ma question est : Comment rajouter du texte à la fin d'un fichier texte ?

Merci d'avance

Hello,

comment ouvres-tu ton fichier texte (il existe plusieurs méthodes) ? un peu de code serait le bienvenu

je fais quelque chose du genre :

Code:

---

1 2 3 4 5 6

strFileName = App.Path & "\" & mstrOUTPUTDecompteXML intF = FreeFile Open strFileName For Output As #intF Print #intF, "<?xml version='1.0' encoding='utf-8' ?>" Close #intF

---

Je pense que l'erreur est dans le FreeFile mais comment le reprendre ? (il faut savoir qu'entre la première fois que j'ouvre le fichier et le seconde fois, j'en ouvrew 3 ou 4 autres)

Code:

---

1 2 3 4 5 6

strFileName = App.Path & "\" & mstrOUTPUTDecompteXML intF = FreeFile Open strFileName For Append As #intF Print #intF, "Ceci est ecrit a la fin du fichier en preservant ce qui y est déjà" Close #intF

---

Cela fonctionne à merveille, merci infiniment

Nicolas Gendre

n'oubli pas le tag [RESOLU].