[FSO] Lecture de fichier / "Input past end of file"

Salut à tous !

J'ai expressément besoin d'aide... J'ouvre un fichier de la façon suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim fso: Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim dir: dir = Server.MapPath("./")&"\Scripts\"&directory&"\" Dim foldPt: set foldPt = fso.GetFolder(dir) Dim fc: set fc = foldPt.Files Dim currentFile, script For each file in fc Set currentFile = file.OpenAsTextStream(1) script = currentFile.ReadAll Response.write "<p>"&script&"</p>" Next

---

A l'exécution il affiche le contenu du fichier puis:

Code:

---

1 2	Microsoft VBScript runtime error '800a003e' Input past end of file

---

Donc, faut-il que j'ajoute un caractère spécial à mes fichiers de type "End Of File" ? Quel est ce caractère ? Sinon, comment corriger cette erreur ???

Help :cry:

Salut,

C'est plutot curieux car la fonction ReadAll retourne le contenu d'un fichier sans que l'on ai à s'occuper de la fin du fichier. Peut être essayes tu d'ouvrir et de lire un fichier qui n'est pas encore "terminé".
Essaye de faire des ReadLine, peut être que ça arrangera les choses :

Code:

---

1 2 3 4

while not file.AtEndOfStream TexteLigne = ts.Readline TexteLigne.Write(TexteLigne) wend

---

Merci Fredddy, le 'ReadAll' fonctionne très bien finalement. Je ne suis pas sur mais je pense que mon problème venait du fait que le fichier contenait des balises ASP "<%" et "%>". Il me fallait les enlever de toute façon, ça marche maintenant :)