1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Private Sub ChargeFichier(ByVal Lachaine As String, ByVal NomFichier As String, ByVal NomRepertoire As String)
' Ouvre le fichier en écriture et enregistre la chaine dedans
Dim LeCheminFichier As String
Dim Lefichier As System.IO.FileStream
Dim MonWriter As System.IO.StreamWriter
' Récupère le chemin en dur du répertoire dans lequel sera le fichier
LeCheminFichier = Server.MapPath(NomRepertoire) & NomFichier
' Créer le fichier et ajoute un pointeur dessus
Lefichier = New System.IO.FileStream(LeCheminFichier, IO.FileMode.Create)
' Crée un StreamWriter qui chargera le fichier
MonWriter = New System.IO.StreamWriter(Lefichier, System.Text.Encoding.ASCII)
' ICI ON PEUT SPECIFIER LE TYPE D'ENCODAGE DE CE FICHIER (ASCII, UTF8, Unicode, UTF7)
' On envoie la string dans le StreamWriter
MonWriter.Write(Lachaine)
' On ferme le Flux
' Sous .NET la fermeture du flux d'écriture (ou de lecture) entraine automatiquement celle du fichier.
MonWriter.Close()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim SW As New StreamWriter("MonFichier.txt") ' crée le fichier
' SW.WriteLine("Bonjour")
' SW.Close()
ChargeFichier("C:\fichier", "fichier.txt", "fichier")
'Dim SR As StreamReader = File.OpenText("MonFichier.txt")
End Sub |
Partager