2008年4月21日
批量删除同类文件(带通配符)
摘要： procedure DelFiles(fileName: string); var SearchRec: TSearchRec; begin ChDir(ExtractFilePath(fileName)); //进入文件路径 FindFirst(fileName, faAnyFile, SearchRec); repeat if FileExists(SearchRe... 阅读全文
posted @ 2008-04-21 09:10 sonicit 阅读(1498) 评论(0) 推荐(0) 编辑