Je voudrais ajouter à chaque ligne d'un fichier texte, le contenu d'une zone
de texte ac un bouton ajouter.
j'utilise ce code :
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("C:\Partage\vb\send\messenger\contacts.txt",
True)
f.writeline (text_contacts.Text)
f.close
ms y a une erreur a l'avant derniere ligne, je vois pas comment faut faire
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ledev
"eric" a écrit dans le message de news:
Je voudrais ajouter à chaque ligne d'un fichier texte, le contenu d'une
zone
de texte ac un bouton ajouter. j'utilise ce code : Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.CreateTextFile("C:Partagevbsendmessengercontacts.txt", True) f.writeline (text_contacts.Text) f.close
ms y a une erreur a l'avant derniere ligne, je vois pas comment faut faire
Remplace sa par:
open "c:Partagevbsendmessengercontacts.txt" for append as 1 print #1,text_contacts.text close 1
3 lignes, ne fait pas appelle a FSO(qui est a la base conçue pour les scripts, et qui est trés lent), et en plus, y'a des chances pour que sa marches ;-).
Mais si tu nous en disais plus sur ton erreur, on pourrai voir se qui vas pas, et, si par open sa ne marche pas, voir pourquoi?
a+
"eric" <edurdilly@free.fr> a écrit dans le message de
news:evg6nf5TDHA.1912@TK2MSFTNGP12.phx.gbl...
Je voudrais ajouter à chaque ligne d'un fichier texte, le contenu d'une
zone
de texte ac un bouton ajouter.
j'utilise ce code :
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("C:Partagevbsendmessengercontacts.txt",
True)
f.writeline (text_contacts.Text)
f.close
ms y a une erreur a l'avant derniere ligne, je vois pas comment faut faire
Remplace sa par:
open "c:Partagevbsendmessengercontacts.txt" for append as 1
print #1,text_contacts.text
close 1
3 lignes, ne fait pas appelle a FSO(qui est a la base conçue pour les
scripts, et qui est trés lent), et en plus, y'a des chances pour que sa
marches ;-).
Mais si tu nous en disais plus sur ton erreur, on pourrai voir se qui vas
pas, et, si par open sa ne marche pas, voir pourquoi?
Je voudrais ajouter à chaque ligne d'un fichier texte, le contenu d'une
zone
de texte ac un bouton ajouter. j'utilise ce code : Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.CreateTextFile("C:Partagevbsendmessengercontacts.txt", True) f.writeline (text_contacts.Text) f.close
ms y a une erreur a l'avant derniere ligne, je vois pas comment faut faire
Remplace sa par:
open "c:Partagevbsendmessengercontacts.txt" for append as 1 print #1,text_contacts.text close 1
3 lignes, ne fait pas appelle a FSO(qui est a la base conçue pour les scripts, et qui est trés lent), et en plus, y'a des chances pour que sa marches ;-).
Mais si tu nous en disais plus sur ton erreur, on pourrai voir se qui vas pas, et, si par open sa ne marche pas, voir pourquoi?
