Borrar archivos según fecha de creación

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
tal vez puedas adaptar este código

'**************************************************************************­*********
'* lista los archivos de una determinada carpeta y sus hijas, cuya fecha sea
inferior
'* en ocho o más días, la actual
'* deberá incluir una referencia a la librería Microsoft Scrpiting Runtime
'* uso: ListaArchivos("C:\Mis Documentos")
''*************************************************************************­**********

Public Sub ListaArchivos(strCarpetaRaiz As String)

Dim objFSO As FileSystemObject, _
objCarpetaRaiz As Scripting.Folder, _
objFolders As Scripting.Folders, _
objFolder As Scripting.Folder, _
objFiles As Scripting.Files, _
objFile As Scripting.file

Set objFSO = New Scripting.FileSystemObject

Set objCarpetaRaiz = objFSO.GetFolder(strCarpetaRaiz)

Set objFolders = objCarpetaRaiz.SubFolders

For Each objFolder In objFolders
Set objFiles = objFolder.Files

For Each objFile In objFiles

'Si la fecha del archivo es menor a la fecha actual menos 8
días..entonces borrar
If objFile.DateCreated <= (Date - 8) Then
Debug.Print objFile.name
End If ' objFile.DateCreated <= (Date - 8)

Next objFile
Set objFiles = Nothing

Next objFolder

Set objFolders = Nothing
Set objCarpetaRaiz = Nothing
Set objFSO = Nothing

End Sub ' ListaArchivos


Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/10]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Miguel" escribió en el mensaje de noticias
news:
Tengo una aplicación que va creando informes en formato PDF. en un
directorio.
¿Cómo puedo borrar los archivos creados hace, por ejemplo más de una
semana, desde access?

La función Kill solo permite comodines en el nombre y/o la extensión.
¿Hay alguna otra función?

Gracias.

__________ Information from ESET Smart Security, version of virus signature
database 5371 (20100816) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 5371 (20100816) __________

The message was checked by ESET Smart Security.

http://www.eset.com