查找目录:
递归查找目录
SearchRec:TsearchRec;
//找出所有下级子目录
if (FindFirst(S+'*.*', faDirectory, SearchRec)=0) then begin
...
while (FindNext(SearchRec) = 0) do begin
if IsValidDir(SearchRec) then begin//IsValidDir是判断是否目录的函数
...
end;
...
end;
end;
至于文件类似,写入txt文件:
SL:TStringList;
将目录结构写入SL,下级目录可以比上级目录前面多N个空格
SL.LoadToFile(FileName);
