- 博客(1)
- 收藏
- 关注
转载 一个删除路径下所有文件的函数
function TForm2.DeleteDirectory(NowPath: string): Boolean;var search: TSearchRec; ret: integer; key: string;begin if NowPath[Length(NowPath)] NowPath := NowPath + /; key := Nowpath + *.*;
2009-12-12 13:10:00 535
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人