paginar txt

[Mickel]

'Con este codigo puedes leer todos los archivos de tu ruta.
'Cambia el sPath si necesitas otro directorio

sPath=Server.Mappath(".")
Set oFs=CreateObject("Scripting.FileSystemObject& quot;)
Set oFolder=oFS.GetFolder(sPath)
Set cFiles=oFolder.Files
if cFiles.Count>0 then
for each file in cFiles
sName=file.name
dFCreacion=file.DateCreated
dFAcceso=file.DateLastAccessed
dFModificado=file.LastModified
lSize=file.Size
'Aqui haces el Response.Write de lo que quieres mostrar
next
end if
set cFiles=Nothing
set oFolder=Nothing
Set oFs=Nothing