Titre: Ecrire dans un fichier.

Description:

Ecrire dans un fichier en effaçant ce qui est précédemment écrit.

Le code:

 
Private Sub Command1_Click()
Open "TEST01.txt" For Output As FreeFile 'Ouvre le fichier.
Print #1, Text1.Text 'Ecrit la chaîne dans le fichier.
Close 'Ferme le fichier.
End
End Sub