URGENT--Comment faire en vbs...--URGENT

Question

Comment faire pour ecrire du texte au debut d'un fichier texte ou a la fin ( peu m importe en fait ) sans effacer ce qui est deja ecrit dans le fichier ?!!!!!!!

Please c urgent .

Merci pour les reponses :)

Renfield · Answer

tu l'ouvres en mode Append :  ecriture a la fin du fichier...
-----------------------------------------------------------------------
By Renfield

thomas_reynald@msn.com

Aucune touche n'a été bléssée lors de la saisie de ce texte..........

cs_Lexounet · Answer

const ForAppending = 8 
...
machin.writeline "blalalala"

et qd je relance le truc ca va ecrire  blalala a la suite ?! c biiiien ca ?!

hin hin!

BasicInstinct · Answer

oui c ca :)

 :clown)  BasicInstinct  :clown)

cs_Lexounet · Answer

ca a l air tout con mais ca marche pas :>
voila mon code:

'ecriture dans un fichier . A la suite si possibleConst ForReading 1, ForWriting 2, ForAppending = 8
Set FSys = CreateObject("Scripting.FileSystemObject") 
set Monfic = Fsys.OpentextFile("C:\WINNT\Profiles\stagiaire\Bureau\Testeuh.txt", ForWriting, true )
Monfic.writeline "=============================="
MonFic.writeline date & " - " & time
MonFic.writeline "ceci est un testtttttttt!"
MonFic.close

hin hin!

BasicInstinct · Answer

dim numfile as integer
numfile=freefile
open "c:	ext.txt" for append as #numFile
write #numfile, "Ceci est un test"
close 
 :clown)  BasicInstinct  :clown)

cs_Lexounet · Answer

c bon g trouver fallait juste remplacer ca :
set Monfic = Fsys.OpentextFile("C:\WINNT\Profiles\stagiaire\Bureau\Testeuh.txt", ForWriting, true )

par : 
set Monfic = Fsys.OpentextFile("C:\WINNT\Profiles\stagiaire\Bureau\Testeuh.txt", ForAppending, true )
hin hin!

Crocodile306 · Answer

'Pour écrire dans un fichier (à la suite)
ecrire = InputBox ("Ce que tu veux écrire.","Test","")
Const ForAppending = 8
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile("test.txt", ForAppending, true)
MonFic.writeLine "&ecrire&"

Ce code là marche très bien je l'ai même tester.

Crocodile306 · Answer

J'aimerais savoir comment faire pour écrire en haut du fichier txt sans effacer le reste.

URGENT--Comment faire en vbs...--URGENT

8 réponses

Discussions similaires