17/05/2002, 19:26
|
 | | | Fecha de Ingreso: mayo-2002 Ubicación: Lima, Peru
Mensajes: 4.619
Antigüedad: 23 años Puntos: 7 | |
| Re: paginar txt
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... |