paginar txt

[zangano]

Una vez vi eso en una web, lo que quiero es como si fuera un 'recordset' por medio del fileobject o algo así, desplegar todos los archivos en txt's que tenga una carpeta y poder ordenarlos por fecha y de mayor a menor o viceversa, todos mis txt's solo tienen números.

No tengo la menor idea de como hacerlo, alguien sabe como¡¡¡¡???

Desde ya grazie por su fina atención, y ayudenme por favor¡¡¡¡¡¡¡¡¡



salu2 ;)

[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

[Mickel]

Me olvidaba de indicarte como filtrar que solo sean TXT

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
if Right(sName,3)="txt" then
'Aqui haces el Response.Write de lo que
'quieres mostrar
end if
next
end if
set cFiles=Nothing
set oFolder=Nothing
Set oFs=Nothing


Te dejo de tarea como ordenarlos por fecha...

[zangano]

Gracias por la ayuda¡¡¡¡, funciona perfectamente, nomás que el ...

dFModificado=file.LastModified

..me manda error de que no acepta ese error o metodo, pero pues de todos modos a mi me sirve sin eso xDDD

Lo de la fecha lo probe con

with file
dFCreacion = now

blablabla

End With


y no me salio¡¡¡¡¡¡, es con esa instrucción o cual tengo que usar???


bueno, gracias por el codigo, ora dime lo de la fecha para que salga primero la mas reciente, por favor¡¡¡¡



salu2




pd; el codigo me quedo funcionando en este link <a href='ir.asp?http://www26.brinkster.com/barrafre/contador.asp' target='_blank'>http://www26.brinkster.com/barrafre/cont...</a>, se ve veo, pero luego lo acomodo mejor ;)