- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 delphi7 读写txt
procedure TForm1.newClick(Sender: TObject);varf:textfile;filename:string;begin filename:='a.txt'; if not fileexists(filename) then begin assignfile(f,filename); rewrite(f);
2012-03-16 21:01:21 2012
delphi 删除 指定目录 指定日期 之前所有文件
大概思路是,递归进入各个子目录。如果是目录,则进去子目录。如果不是,则直接进行比较日期之后,进行删除操作。
其中提取到 这个文件的准确创建日期这一块可能 费了点时间。就是不想直接用r.finddata 里头的东西。太烦人。
也没有多少技术,就是方便删除超大目录下相关文件罢了。
2012-05-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人