Delphi判断文件夹下子文件夹是否为空，及删除子文件夹,遍历文件夹及子文件夹的文件.pdf

Delphi判断⽂件夹下⼦⽂件夹是否为空，及删除⼦⽂件夹,遍历

⽂件夹及⼦⽂件夹的⽂件

unitunDirOption;

interface

usesSysUtils,Classes;

//查当前⽂件夹下的所有⼦⽂件

procedureSearchFile(DirName:String;varsList:TStrings);

//判断⽂件夹是否为空

functionIsEmptyDir(sDir:String):Boolean;

//判断字符串是否为数字

functionIsNumber(sStr:String):Boolean;

//删除⽂件夹

procedureDeleteDir(sDirectory:String);

{

执⾏删除⽂件夹操作

sFileName-要扫描的⽂件夹路径sList-⽤⾄装载将扫描到的⽂件夹

iDay-区别是扫10个字符还是8个字符（超速是8个，过往车辆是10个）

iAgoDay-要删除多少天前的记录

}

procedureExecuteDeleteDir(ConstsFileName:String;varsList:TStrings;

iDay,iAgoDay:Integer);

//遍历⽂件夹及⼦⽂件夹的⽂件

functionMakeFileList(Path,FileExt:string):TStringList;

var

MyFileName:string;

implementation

procedureSearchFile(DirName:String;varsList:TStrings);

Var

Found:integer;

SearchRec:TSearchRec;

begin

Found:=FindFirst(DirName+*.*,faAnyFile,searchrec);

whileFound=0do

begin

if((SearchRec.AttrandfaDirectory)0)then//directory

begin

if(SearchRec.Name.)and(SearchRec.Name..)then

begin

SearchFile(DirName+SearchRec.Name+\,sList);

MyFileName:=DirName+SearchRec.Name;

sList.Insert(0,MyFileName);

end;

end;

Found:=FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

procedureExecuteDeleteDir(ConstsFileName:String;varsList:TStrings;

iDay,iAgoDay:Integer);

var

I:Integer;

LastDir:String;//⽂件夹最后⼏个字符

DirDate:String;//当前⽂件夹的⽇期

begin

SearchFile(sFileName,sList);

SearchFile(sFileName,sList);

forI:=0tosList.Count-1do

begin

ifiDay=10then

LastDir:=copy(sList.Strings[i],length(sList.Strings[i])-9,10)

elseLastDir:=copy(sList.Strings[i],length(sList.Strings[i])-9,8);

ifIsNumber(LastDir)then

begin

DirDate: