Salut à tous !
J'ai expressément besoin d'aide... J'ouvre un fichier de la façon suivante:
A l'exécution il affiche le contenu du fichier puis:
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
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 ???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Microsoft VBScript runtime error '800a003e' Input past end of file
Help
Partager