Error en objTextStream.EOF

[cepasoca]

Buenas, a ver si me echais una manita...

tengo el siguiente código:

<%

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strNombreArchivo = "cache.txt"

const strFileName = "cache.txt"
const fsoLectura = 1
const fsoEscritura = 2

If objFSO.FileExists(Server.MapPath(strNombreArchivo) ) then
Set objTextStream = objFSO.OpenTextFile(Server.MapPath(strFileName), fsoLectura)

while not objTextStream.EOF
Fichero = objTextStream.ReadLine
response.write Fichero
wend

objTextStream.Close
Set objTextStream = Nothing
end if
%>

pero al probarlo me da el siguiente error:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'EOF'

prueba.asp, line 17

He mirado ejemplos y se supone que el EOF es una propiedad, ¿Por que me da error en objTextStream.EOF ?

Gracias y saludos a todos

[Muzztein]

bueno, si el Interprete asp dice que el objeto no acepta dicho metodo, es por que no lo acepta y punto.
No nos vamos a poner a discutir con la maquina, cuando bien sabemos que las maquinas no se equivocan.

si quieres escribir el contenido del documento, se hace asi

Código:

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strNombreArchivo = "cache.txt"

const strFileName = "cache.txt"
const fsoLectura = 1
const fsoEscritura = 2

If objFSO.FileExists(Server.MapPath(strNombreArchivo)) then
   Set objTextStream = objFSO.OpenTextFile(Server.MapPath(strFileName), fsoLectura) 	

'    while not objTextStream.EOF  
	Fichero = objTextStream.ReadAll
             response.write Fichero
'    wend

objTextStream.Close
Set objTextStream = Nothing
end if

De pasada te dejo unos links

http://www.w3schools.com/asp/asp_ref_filesystem.asp
http://www.w3schools.com/asp/asp_ref_textstream.asp

[cepasoca]

Buenas,

lo que ponía era un ejemplo, no era simplemente leer el fichero y escribir asi k la solucion no me valía pero he encontrado la siguiente instrucción en uno de los links que me has dejado:

while objTextStream.AtEndOfStream = false

k hace lo mismo k keria hacer yo con :

while not objTextStream.EOF
asi k ya está solucionado.

Gracias y salu2