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 |
