Conocer fecha creación archivo

[angel_dope]

Hola, quisiera saber si hay alguna forma de recorrer los archivos de una carpeta y leer su fecha de creación. Lo que quiero hacer es ir leyendo estas fechas y aquellos archivos cuya fecha de creación sea más antigua de X tiempo (digamos 3 meses) borrarlos.
Hay alguna forma de hacer esto?? Salu2 y gracias por adelantado

[Batan]

No creo que se pueda sacar la fecha de creacion de los archivos.
Puedes saber cuando se modificaron por ultima vez.

Código ASP:

<%
' Creamos el Objeto FileSystemObject
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' Tomamos el archivo que vamos a estudiar...
Set RS = FSO.GetFile(Server.MapPath("archivo.asp"))
' Extraemos su última modificación y lo guardamos en una variable...
modificado = RS.DateLastModified
%>
Este archivo fue actualizado por última vez: <%=(modificado)%>
<%
Set RS = Nothing
Set FSO = Nothing
%>
 

Este Script lo saque de http://www.soloasp.com.ar/vereje.asp?eje=31 , por si quieres echarle un vistazo.

Saludos

[angel_dope]

Pues también me sirve, porque esos archivos una vez se crean, no se vuelven a modificar, por lo que la fecha de modificación coincide con la de creación, así que con esto creo que me apaño. Muchas gracias ;)

[Batan]

Claro.
De nada

[angel_dope]

Bueno, dejo el código completo por si a alguien le viene bien. Lo que se hace es recorrer una carpeta completa y leyendo las fechas de modificación. Si la fecha tiene más de siete días, el archivo se borra

Código ASP:

set FSO = Server.CreateObject("Scripting.FileSystemObject")
'definimos la ruta a la carpeta que queremos recorrer
set oCarpeta = FSO.GetFolder(Server.MapPath("../../../extranetweb/download"))
set colFicheros = oCarpeta.Files
 
'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
        'capturamos la fecha de modificación
    modificado = fichero.DateLastModified
    modificado=FormatDateTime(modificado,2)
    fecha_actual = FormatDateTime(date,2)
        'sacamos la diferencia en días con la fecha actual
    diferencia = datediff("d", modificado, fecha_actual)
    if diferencia > 7 then 'si la diferencia es superior a 7, se elimina el archivo
        fichero.delete
    end if
next
 

[Batan]

Deberian ponerlo en las Faq del foro.
Esta interesante.

[angel_dope]

He hecho una pequeña modificación: he añadido un pequeño control de errores, por si nos topamos con un archivo de solo lectura o sin permisos para borrarlo, de esta forma, no se parará el script, sino que continuará con el siguiente archivo.

Código ASP:

set FSO = Server.CreateObject("Scripting.FileSystemObject")
'definimos la ruta a la carpeta que queremos recorrer
set oCarpeta = FSO.GetFolder(Server.MapPath("../../../extranetweb/download"))
set colFicheros = oCarpeta.Files
 
'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
'capturamos la fecha de modificación
modificado = fichero.DateLastModified
modificado=FormatDateTime(modificado,2)
fecha_actual = FormatDateTime(date,2)
'sacamos la diferencia en días con la fecha actual
diferencia = datediff("d", modificado, fecha_actual)
if diferencia > 7 then 'si la diferencia es superior a 7, se elimina el archivo
    On Error Resume Next ' catch errors
        fichero.delete
    If Err <> 0 Then ' error occurred
        strErr = Err.Description & "<br>"
    else
        bSuccess = True
    End If
end if
next
 

[phillipecw]

Muy interesante... gracias por compartir el código