ecrire fin fichier VBS

salut tout le monde,
je souhaite écrire a la fin d'un fichier teste.
j'ai trouvé le code qui me permet d’écrire dans un fichier mais ce code m'écrase l'ancien contenu.
Merci pour toute aide.

Dans l'aide Vbscript, tu trouves ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True) f.Write "Bonjour !" f.Close End Sub

---

Il suffit de remplacer dans ce code : ForWriting par ForAppending

Merci pour la réponse:oops: