Ajouter du texte à la suite d'un txt

Résolu
djarnaldoo
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006
- 3 août 2006 à 16:00
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
- 4 août 2006 à 10:29
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:\test.txt)
With Monfic
.writeLine "Message du : " & Date & " à " & Time
end with
set WshShell=nothing
-------------------------------------------------------

4 réponses

djarnaldoo
Messages postés
10
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
13 septembre 2006

4 août 2006 à 09:19
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
3
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
4 août 2006 à 10:29
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>
3
cs_Jack
Messages postés
14007
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
3 août 2006 à 16:15
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
0
jrivet
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
59
3 août 2006 à 17:20
Salut,
Sinon si tu veux conserver les FileSystemObject


il te faut ouvrir ton TextStream de al facon suivante.








Set MonFic = FSys.OpenTextFile("C:\test.txt", ForAppending, True) 
 







<small> Coloration syntaxique automatique [AFCK]
</small>




Voila j espere que cela peu taider

@+, Julien
Pensez: Règlement/STRONG>
0