Ajouter des données à la fin d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 995 fois - Téléchargée 35 fois

Contenu du snippet

je mais cette source pour pas que personne ne fasse la meme gaffe que moi
voici comment ajouter des données à la fin d'un fichier SIMPLEMENT

Source / Exemple :


Sub ajouter(fichier As String, donnees As String)
Dim fso, texte
Set fso = CreateObject("scripting.filesystemobject")
Set texte = fso.OpenTextFile(fichier, ForAppending, True)
texte.write donnees
'pour rester propre
texte.Close
Set fso = Nothing
Set texte = Nothing
End Sub

Conclusion :


c aussi simple

A voir également

Ajouter un commentaire

Commentaires

carl_coy
Messages postés
1
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
14 février 2006
-
En un mot : Merci
Je cherchais à ecrire dans un fichier texte à partir d'un .VBS (j'ai remplacé ForAppending par 8 sinon ca ne fonctionnait pas!?)

Je n'y connais rien de rien en prog ni en scripting et ton code m'a bien aidé.
cs_calimero93
Messages postés
29
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
10 décembre 2004
-
mais malheureusement ca ne marche pas pour des fichier BAT ou SYS
cs_calimero93
Messages postés
29
Date d'inscription
vendredi 14 mars 2003
Statut
Membre
Dernière intervention
10 décembre 2004
-
merci pour ton code pcpunch
il va mettre tres utile
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
ben la je regrette la note k j'ai mis car ce code m'a l'air bien mieu k le precedent.
Sa c du bon boulot(ont peut noter k ya pas mal de methode ecrite sur ce sujet ici et c tres bien pour les autres) ;-)
gabchampagne
Messages postés
216
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
5 mai 2004
-
mais ca mrache

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.