Đang cố gắng để xóa các tập tin cũ hơn x ngày vb.net

Question

Tôi có một chút cơ bản của mã mà tôi đang sử dụng để xóa các tập tin văn bản trong một thư mục nhất định:

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

filePath là thư mục chứa các file cư trú.

intdays là biến số xác định số ngày tệp sẽ được giữ lại.

Để kiểm tra mã, tôi đặt intdays thành 0, giả sử rằng nó sẽ xóa bất kỳ tệp nào trong directoy. Tuy nhiên nó không, nhưng không tạo ra lỗi.

Thời gian "Hiện hành" là # 2/8/2012 13:59:00 PM # lớn hơn 0. Nhưng tôi nhầm lẫn là tại sao nó không xóa tệp?

Answer 1

Sự khác biệt giữa các ngày là ít hơn một ngày.

Bạn đang gọi thuộc tính Days, là loại số nguyên - đây sẽ là 0 cho các khoảng thời gian dài hơn một ngày.

Answer 2

Tôi đã thử nghiệm nó

 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) 

Vì vậy, khi bạn đang trừ ngày mà có chênh lệch ít hơn một ngày Days sở hữu của kết quả là 0, nghĩa là cắt ngắn với giá trị số nguyên nhỏ hơn.

Answer 3

bạn có thể muốn sử dụng LastWriteTime thay vì CreateTime, tùy thuộc vào những gì bạn đang cố gắng đạt được.