Discussion :

[ayarikhaoulakoukou]

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.

[l_autodidacte]

Dans l'aide Vbscript, tu trouves ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ayarikhaoulakoukou]

Merci pour la réponse