'Renvoi "False" si l'écriture du fichier à généré une erreur
Public Shared Function EnregistrerFichierTexte(ByVal Chemin As String, ByVal Contenu As String) As Boolean
Try
Dim fs As System.IO.FileStream = System.IO.File.Open(Chemin, _
System.IO.FileMode.Create, _
System.IO.FileAccess.Write)
Dim sw As New System.IO.StreamWriter(fs)
sw.Write(Contenu)
sw.Close()
fs.Close()
Return True
Catch ex As Exception
Return False
End Try
End Function