Salut à tous !

J'ai expressément besoin d'aide... J'ouvre un fichier de la façon suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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