1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
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 |