DELPHI在指定目录下(包括其子目录)查找指定文件后删除

DELPHI在指定目录下(包括其子目录)查找指定文件后删除
删除
过程tform 1。

在指定目录(包括其子目录)中找到指定文件后，查找文件(apath，file:string)；var
查找结果:整数；
FSearchRec，DSearchrec:TsearchRec；函数符号:布尔值；开始
结果:= ((ADirName = ‘ . ‘)或(ADirName = ‘ .. ‘)；结束；从
开始，如果[长度为(APath)] ‘\\ ‘，则Apath:= Apath+’ \ \ ‘；FindResult:= FindFirst(Apath+aFIle，
FaanyFile+FahIdden+FasyFile+FaraAdonly，FSearchRec)；//在根目录中查找指定的文件try
，而find result = 0 obegin
listbox 1 . items . add(apath+fsearcrec . name );删除文件(APath + FSearchRec。

名称)；
查找结果:=查找下一个(偏移量)。

//查找下一个指定的文件结尾；FindResult:= FindFirst(Apath+’ *。

*、faDirectory、DSearchrec)；//当find result = 0 do begin
if((DSearchRec . attr和fadirectry)= fadirectry)而不是IsDirrentation(DSearchRec)时，转到当前目录的子目录继续搜索。

名称)，然后查找文件(APath + DSearchRec。

姓名，传真号码)；//递归调用FindFiles函数
FindResult:= FindNext(DseerChrec)；结束；最后是
FindClose(FSEARCRec)；结束；结束；
程序表1。

按钮1单击(发件人:收件人)；var Strings 1:TsStrings；一:整数；
开始
列表框1。

项目。

清除；
如果长度(第2版。

文本)。