[ASP vbs]Lettura file riga per riga

[Aki]

Ave populus
ho un file txt così strutturato:

nomefile1
nomefile2
...

cioè un solo valore per riga
e vorrei leggerlo riga per riga aggiungendo prima di ogni riga un'immagine, quindi dovrei usare il readline e un ciclo per ciclare su ogni riga, quindi ho fatto così:

<% 
Const ForReading = 1
Set oFS = CreateObject("Scripting.FileSystemObject")
pathMateriale = Server.mappath("upload\public\")
if  oFS.FileExists(pathMateriale  + "\thread.txt") then    
   Set f = oFS.OpenTextFile(pathMateriale + "\thread.txt", ForReading)
   Do while not oFS.EOF
      response.write("[img]img/paperclip.gif[/img]
<font style='font-size: 10px;'>" +f.readline() + "
</font>")
   loop
else
end if
%>

ma dice che l'oggetto FSO non comprende il metodo EoF.
Quindi come ciclo per vedere se si è raggiunta la fine del file?

Spero si sia capito

[Alethesnake]

devi usare AtEndOfStream, EOF non è un metodo di filesystemobject

[kalosjo]

Io farei così:

<% 
Const ForReading = 1
Set oFS = CreateObject("Scripting.FileSystemObject")
pathMateriale = Server.mappath("upload\public\")
if  oFS.FileExists(pathMateriale  + "\thread.txt") then    
   Set f = oFS.OpenTextFile(pathMateriale + "\thread.txt", ForReading)
   tutto=f.ReadAll()
   velementi=split(tutto,vbcrlf)
   for i=0 to ubound(velementi)
      response.write("[img]img/paperclip.gif[/img]
<font style='font-size: 10px;'>" +velementi(i) + "
</font>")
   next
else
end if
%>