楼上的已经讲的得清楚了...... var FileInfo: TSearchRec; DosCode :Integer begin DosCode := FindFirst(CurDir, faAnyFile, FileInfo); while DosCode = 0 do begin if (FileInfo.Attr and faDirectory = faDirectory) then begin showmessage('找到') end DosCode := FindNext(FileInfo); end end;
var
FileInfo: TSearchRec;
DosCode :Integer
begin
DosCode := FindFirst(CurDir, faAnyFile, FileInfo);
while DosCode = 0 do
begin
if (FileInfo.Attr and faDirectory = faDirectory) then
begin
showmessage('找到')
end
DosCode := FindNext(FileInfo);
end
end;
不管怎么说,送分
你把.和..都算了,所以....所有的目录都有子目录(都显示“找到”)