delphi 删除 指定目录 指定日期 之前所有文件

大概思路是，递归进入各个子目录。如果是目录，则进去子目录。如果不是，则直接进行比较日期之后，进行删除操作。其中提取到这个文件的准确创建日期这一块可能费了点时间。就是不想直接用r.finddata里头的东西。太烦人。也没有多少技术，就是方便删除超大目录下相关文件罢了。