- ' -----------------------------------------------------
- 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
' -----------------------------------------------------
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