试图删除早于x天vb.net的文件

A S*_*ith 6 vb.net windows-services file find delete-file

我有一个基本的代码,我用它来删除给定目录中的文本文件:

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

filePath 是文件所在的目录.

intdays 是一个变量,用于确定应保留文件的天数.

为了测试代码我将intdays设置为0,假设它将删除directoy中的任何文件.但它不会,但不会产生任何错误.

时间"现在"是#2/8/2012 13:59:00 PM#大于0.但我很困惑,为什么它不删除文件?

Ode*_*ded 3

日期之间的差异不到一天

您正在调用该Days属性,它是一个整数类型 - 这将用于0小于一天的时间间隔。