Pour ceux qui n'utilisent pas FSO sous ASP, utilisez l'objet adodb.stream pour enregistrer et lire les fichiers afin d'éviter les machines dont certains hôtes virtuels ne prennent pas en charge FSO. '************************************
'Lire le fichier
'************************************
Fonction LoadFromFile (fichier ByVal)
Dim objStream
Dim RTexte
RTexte = Tableau(0, )
Définir objStream = Server.CreateObject (ADODB.Stream)
Avec objStream
.Type = 2
.Mode = 3
.Ouvrir
.Charset = utf-8
.Position = objStream.Taille
En cas d'erreur, reprendre ensuite
.LoadFromFile Server.MapPath (Fichier)
Si erreur alors
RTexte = Tableau (Err.Number, Err.Description)
LoadFromFile = RTexte
Err.Effacer
Fonction de sortie
Fin si
RTexte = Tableau(0, .ReadText)
.Fermer
Terminer par
LoadFromFile = RTexte
Définir objStream = Rien
Fonction de fin
'************************************
'Enregistrer le fichier
'************************************
Fonction SaveToFile (ByVal strBody, ByVal File)
Dim objStream
Dim RTexte
RTexte = Tableau(0, )
Définir objStream = Server.CreateObject (ADODB.Stream)
Avec objStream
.Type = 2
.Ouvrir
.Charset = utf-8
.Position = objStream.Taille
.WriteText = strBody
En cas d'erreur, reprendre ensuite
.SaveToFile Server.MapPath (Fichier), 2
Si erreur alors
RTexte = Tableau (Err.Number, Err.Description)
EnregistrerDansFichier = RTexte
Err.Effacer
Fonction de sortie
Fin si
.Fermer
Terminer par
RText = Array(0, fichier enregistré avec succès !)
EnregistrerDansFichier = RTexte
Définir objStream = Rien
Fonction de fin