Ficheros (lectura de un archivo de texto)

[AlZuwaga]

El código sería así:


<%
Dim FSO, oCarpeta, colFicheros, fichero, oFichero
Dim sContenido

set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = FSO.GetFolder("C:\My Documents")
set colFicheros = oCarpeta.Files

'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros

if fichero.Name="a.txt" then
'Abro el fichero para lectura (ForReading)
set oFichero = FSO.OpenTextFile("C:\My Documents\a.txt",1)

'Leo todo el fichero a una variable
sContenido = oFichero.ReadAll

response.write sContenido

'Cierro el fichero
oFichero.Close
set oFichero = nothing
end if

next 'fichero

set colFicheros = nothing
set oCarpeta = nothing
set FSO = nothing

%>