Discussion :

[Johnbob]

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

[Freddddy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
while not file.AtEndOfStream
    TexteLigne = ts.Readline
    TexteLigne.Write(TexteLigne)
wend

[Johnbob]

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