Titre: Ecrire dans un fichier.
Description:
Ecrire dans un fichier sans effaçer ce qui est précédemment écrit.
Le code:
Private Sub Commande1_Click()
'Va ecrire dans un fichier sans effacer ce qui est deja ecrit.
Dim TexteEcrire
TexteEcrire = InputBox$("Entrez une valeur", "Boite de diaogue", "AEIOU")
Open "TEST02.txt" For Append As FreeFile 'Ouvre le fichier.
Print #1, TexteEcrire 'Ecrit la chaîne dans le fichier.
Close 'Ferme le fichier.
Texte1.Text = TexteEcrire
End Sub |