'Exemple simple pour écrire des données dans un fichier en Visual Basic 2005 .Net

Imports System.IO

Imports System.Diagnostics

Module Module1

Sub Main()

Try

Dim titi As New StreamWriter("C:\write\toto.txt", True, Text.Encoding.UTF8) 'True = ajoute des données les unes après les autres

If File.Exists("C:\write\toto.txt") Then 'si le fichier existe

                titi.WriteLine("titi toto tata @@ éé èè àà #& " + File.GetLastWriteTime("C:\write\toto.txt").ToString()) 'écriture dans le fichier

'Ecrit les données ci-dessus  avec la date du dernier accès en écriture au fichier

                titi.Close()    'fermeture du fichier

Else 'sinon

                File.CreateText("C:\write\toto.txt")    'création du fichier

                titi.WriteLine("titi toto tata @@ éé èè àà #& " + File.GetLastWriteTime("C:\write\toto.txt").ToString()) 'écriture dans le fichier

                titi.Close()

End If

Catch ex As IOException     'gestion des erreurs

            Console.WriteLine(ex.Message)

            Console.ReadKey()

Catch ex As Exception

            Console.WriteLine(ex.Message)

            Console.ReadKey()

End Try

End Sub

End Module