Ajouter du texte à la suite d'un txtRésolu

Question

Bonjour tlm !!



J'aimerai écrire dans un fichier texte a la suite du contenu pour créer un fichier log. J'arrive à créer pour écrir dans un txt mais a chaque lancement le fichier est ecrasé par le nouveau. Je voudrais donc que le texte vient à la suite de celui qui existe, car à chanque execution les fichier txt doit receuillir les infos déja. Si quelqu'un à une petite idée ou un script, elle est la bien venue

Merci bcp :)

------------------------------------------------------
set FSys = CreateObject("Scripting.FileSystemObject")
Set Monfic = FSys.Createtextfile("c:	est.txt)
With Monfic
.writeLine "Message du : " & Date & " à " & Time
end with
set WshShell=nothing
-------------------------------------------------------

djarnaldoo · Accepted Answer

hello pour info j'ai trouvé la solution :)

c'était pas trés compliqué en fait 

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("C:\script.log", 1, True)
Set File = FSO.OpenTextFile("C:\script.log", 8, True)
File.WriteLine ""
File.WriteLine "Message du : " & Date & " à " & Time
File.Close
set WshShell=nothing

cs_Jack · Answer

Salut
Pour ce faire, il suffit d'ouvrir le fichier existant en mode APPEND - Voir l'aide de la fonction Open
Open Fichier For Append As #1

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro

jrivet · Answer

Salut, Sinon si tu veux conserver les FileSystemObject il te faut ouvrir ton TextStream de al facon suivante. Set MonFic = FSys.OpenTextFile("C: est.txt", ForAppending, True) Coloration syntaxique automatique [AFCK] Voila j espere que cela peu taider @+, Julien Pensez: Règlement/STRONG>

jrivet · Answer

Re,

> djarnaldoo: Bah, c'est la solution que je t'ai proposé hier... 
NOTE: ForAppending = 8   (fais partie du Type IOMode contenu dans Microsoft Scripting Runtime)

Mais pour te donner cette solution j 'ai mis en référence a mon projet Microsoft Scripting Runtime.

Qui te permet d'utiliser sans passer apr les CreateObject mais par les NEW , les FileSystemObject et les TextStream.

En plus tu as les methodes des objets qui apparaissent lors de la saisie.

@+, Julien
Pensez: Règlement/STRONG>

Ajouter du texte à la suite d'un txt

4 réponses

Votre réponse