Eliminar ficheros que no sean de fecha hoy mediante fso

ignacioel · #1 (**permalink**) 14/04/2007, 06:29

Teniendo este codigo, esta bien la comparacion de fechas?Se eliminaria asi cada fichero si no cumple la condicion de ser modificado los ultimos dos dias?

If folder.Size > 0 Then
For Each file In folder.Files
if Date>left(file.DateLastModified+2,10) then
file.Delete
end if
Next

Gracias

u_goldman · #2 (**permalink**) 14/04/2007, 15:13

Y por qué no haces una prueba tu mismo?

Saludos

ignacioel · #3 (**permalink**) 14/04/2007, 17:37

Pues porque ya lo habia echo, sino no preguntaria.
Gracias

ignacioel · #4 (**permalink**) 15/04/2007, 04:46

If DateDiff("d", DateValue(file.DateLastModified), Date()) > 2 Then
....

Thanks