22/04/2008, 09:57
|
| | | Fecha de Ingreso: agosto-2006
Mensajes: 110
Antigüedad: 18 años, 9 meses Puntos: 0 | |
| Re: eliminar base de datos por fecha
gracias amigo, entonces yo lo podria hacer asi:
Dim FSO As Scripting.FileSystemObject
Dim SF As Scripting.File
Set FSO = New Scripting.FileSystemObject
For Each SF In FSO.GetFolder("C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\").Files
If SF.DateCreated < Now - 5 Then Kill "C:\WINDOWS\Pollo Feliz\Pv Traslados\Inventarios\" & SF.Name
Next
despues dentro de la carpeta inventarios me va a borrar solo la carpeta mas antigua a 5 dias verdad, no vaya hacer la de malas y me vaya a borrar todas las carpetas jeje.
para que tambien me elimine las de:
C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\
necesito crear todo esto de nuevo
Dim SF As Scripting.File
Set FSO = New Scripting.FileSystemObject
For Each SF In FSO.GetFolder("C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\").Files
If SF.DateCreated < Now - 5 Then Kill "C:\WINDOWS\Pollo Feliz\Pv Traslados\tickets\" & SF.Name
Next
gracias |