Enregistrer texte à la fin
cs_aaa
Messages postés
12
Date d'inscription
dimanche 5 août 2001
Statut
Membre
Dernière intervention
29 septembre 2010
-
18 juil. 2007 à 17:20
hvb Messages postés 939 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 27 janvier 2009 - 18 juil. 2007 à 17:38
hvb Messages postés 939 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 27 janvier 2009 - 18 juil. 2007 à 17:38
3 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
18 juil. 2007 à 17:31
18 juil. 2007 à 17:31
salut,
j'y connais pas grand chose (même que dalle) en dotnet mais en vb6 tu as le mode Append.
Sinon, regarde du côté de
My.Computer.FileSystem.Quelquechose
(ReadAllText, WriteAllText, c'est sûr, mais y'a peut-être un WriteEndText ou quelque chose dans ce style)
@++
<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
j'y connais pas grand chose (même que dalle) en dotnet mais en vb6 tu as le mode Append.
Sinon, regarde du côté de
My.Computer.FileSystem.Quelquechose
(ReadAllText, WriteAllText, c'est sûr, mais y'a peut-être un WriteEndText ou quelque chose dans ce style)
@++
<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
3
18 juil. 2007 à 17:31
18 juil. 2007 à 17:31
Imports System.IO
Public Sub append_txtfile(ByVal pathz As String, ByVal paramzstr As String)
If File.Exists(pathz) = True Then
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, True)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
Else
write_txtfile(pathz, paramzstr)
End If
End Sub
J'kiffe ton pseudo!
HvB a.k.a BaTo ^^x
http://chat.batto.info/ ^^'
http://batto.info/
Public Sub append_txtfile(ByVal pathz As String, ByVal paramzstr As String)
If File.Exists(pathz) = True Then
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, True)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
Else
write_txtfile(pathz, paramzstr)
End If
End Sub
J'kiffe ton pseudo!
HvB a.k.a BaTo ^^x
http://chat.batto.info/ ^^'
http://batto.info/
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
3
18 juil. 2007 à 17:38
18 juil. 2007 à 17:38
scuses, y a du parasite dans ma procédure.
La bonne :
Public Sub append_txtfile(ByVal pathz As String, ByVal paramzstr As String)
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, True)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
End Sub
HvB a.k.a BaTo ^^x
http://chat.batto.info/ ^^'
http://batto.info/
La bonne :
Public Sub append_txtfile(ByVal pathz As String, ByVal paramzstr As String)
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, True)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
End Sub
HvB a.k.a BaTo ^^x
http://chat.batto.info/ ^^'
http://batto.info/