Tratando de eliminar los archivos mayores de x días vb.net

Question

que tengo un poco básico de código que estoy usando para borrar archivos de texto dentro de un directorio dado:

For Each file As IO.FileInfo In New IO.DirectoryInfo(filePath).GetFiles("*.txt") 
    If (Now - file.CreationTime).Days > intdays Then file.Delete() 
    Next 

filePath es el directorio donde residen los archivos.

intdays es una variable que determina cuántos días deben conservarse los archivos.

Para probar el código configuré intdays en 0, suponiendo que eliminaría cualquier archivo en el directorio. Sin embargo, no lo hace, pero no crea errores.

El tiempo "Ahora" es # 2/8/2012 13:59:00 PM # que es mayor que 0. ¿Pero no estoy seguro de por qué no lo hace y luego borro el archivo?

Answer 1

La diferencia entre las fechas es menos de un día.

Está llamando a la propiedad Days, que es un tipo entero; esto será 0 para intervalos de menos de un día.

Answer 2

Lo he probado

 Dim d = New Date(2012, 11, 21, 16, 0, 0) 
     Dim dGreater = New Date(2012, 11, 21, 17, 0, 0) 
     Dim result = dGreater - d 
     Console.WriteLine(result.Days) 

Así que cuando usted está restando las fechas que tiene diferencia de menos de un día la propiedad Days del resultado es 0, es decir, truncada en el valor entero menor.

Answer 3

es posible que desee utilizar LastWriteTime en lugar de CreateTime, dependiendo de lo que esté tratando de lograr.