Creer fichier texte

 Sub ecritureFichier(ByVal fichier As String)

        Try

            'Instanciation du StreamWriter avec passage du nom du fichier 
            Dim monStreamWriter As StreamWriter = New StreamWriter(Server.MapPath("./") & "admin\logs\" & fichier)

            'Ecriture du texte dans votre fichier
            monStreamWriter.WriteLine("Ma toute première ligne...")
            monStreamWriter.WriteLine("Ma seconde ligne...")
            monStreamWriter.WriteLine("Ma troisième ligne...")

            'Fermeture du StreamWriter (Trés important)
            monStreamWriter.Close()

        Catch ex As Exception

            'Code exécuté en cas d'exception
            Response.Write(ex.Message)

        End Try

End Sub

Imports System.IO

Imports System.IO

Sub FichierTexte(ByVal NomFichier As String)
    Dim sr As StreamReader       'lecture
    Dim sw As StreamWriter       'écriture
    Dim sLine As String
    Try
        If Not File.Exists(NomFichier) Then
            'Le fichier n'existe pas. On le crée
            sw = New StreamWriter(NomFichier)
            sw.WriteLine("Bonjour. Il nous sommes le {0} et il est {1} ", _
 DateTime.Now.ToLongDateString, _
 DateTime.Now.ToLongTimeString)
            sw.Close()
            sw = Nothing
            'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
            'du texte à un fichier existant
        End If
        'Ouverture du fichier et Ecriture du contenu du fichier sur la console
        sr = New StreamReader(NomFichier)
        Console.WriteLine("Debut du fichier")
        sLine = sr.ReadLine()
        While Not sLine Is Nothing
            Console.WriteLine(sLine)
            sLine = sr.ReadLine()
        End While
        Console.WriteLine("Fin du fichier")
    Finally
        'Fermeture streamreader
        If Not IsNothing(sr) Then sr.Close()
        'Fermeture streamwriter
        If Not IsNothing(sw) Then sw.Close()
    End Try
End Sub