cs_grazio
Messages postés3Date d'inscriptionmardi 30 janvier 2007StatutMembreDernière intervention30 mars 2007
-
30 mars 2007 à 21:02
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 2014
-
30 mars 2007 à 21:37
Salut, je suis débutant en programmation et bien sûr, j'ai un problème :
j'ai trouvé un programme qui écrit dans un fichier texte ce que l'on a déjas écrit dans un "inputBox". Le problème est que si je réouvre le programme et que je réécrit dessus, tout ce qui était dans le fichier texte s'efface pour laisser place aux nouvelles données. Si vous pouvez m'aider Merci !
voici le code :
dim fso, fichier
Msg = "Programme"
MsgBox(Msg)
r = inputbox("écrivez votre phrase :")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fso = Fso.createTextFile("C:\testout.txt")
With fso 'Pour écrire dans le fichier texte
.writeLine "Fichier ouvert le" & date 'Mettre write pour ne pas sauter à la ligne
.writeLine "à : " & time
.writeLine "Message " & r
.writeLine " "
end with