Código:
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(ruta))
i=1
response.write "<table border=2>"
for each file in folder.files
Set archivo = fso.OpenTextFile(file, 1)
archivo.skipline
archivo.skipline
archivo.skipline
archivo.skipline
archivo.skipline
archivo.skipline
archivo.skipline
archivo.skipline
linea=archivo.readline
' response.write "<tr><td>"&i&"</td><td>"&file&"</td>"
response.write "<td>"&linea&"</td></tr>"&vbcrlf
archivo.close
i=i+1
next
a eso me refiero con metodo carretero
