while (True) do//开始遍历,直至队列为空 begin tmpStr := curDir + '\*.*';//加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径
found := FindFirst(tmpStr, faAnyFile, searchRec);//在当前目录查找第一个文件、子目录 while found = 0 do begin if (searchRec.Attr and faDirectory) <> 0 then//如果找到的是个目录 begin if (searchRec.Name <> '.') and (searchRec.Name <> '..') then begin tmpStr := curDir + '\' + searchRec.Name; dirs.Push(StrNew(PChar(tmpStr))); end; end else begin Result := Result + 1; vFileList.Add(curDir + '\' + searchRec.Name); end; found := FindNext(searchRec);//查找下一个文件或目录 end; if dirs.Count > 0 then begin pszDir := dirs.Pop; curDir := StrPas(pszDir); StrDispose(pszDir); end else break; end;
//释放资源 dirs.Free; FindClose(searchRec); end;
{用递归的方法遍历文件} function EnumFileInRecursion(path: PChar;vFileList:TStrings): Longint; stdcall; var searchRec: TSearchRec; found: Integer; tmpStr: string; begin vFileList.Clear; Result := 0; //查找结果(文件数)
tmpStr := StrPas(path) + '\*.*';
found := FindFirst(tmpStr, faAnyFile, searchRec);//第一个文件或目录 while found = 0 do begin if (searchRec.Attr and faDirectory) <> 0 then begin if (searchRec.Name <> '.') and (searchRec.Name <> '..') then begin tmpStr := StrPas(path) + '\' + searchRec.Name; Result := Result + EnumFileInRecursion(PChar(tmpStr),vFileList);//递归调用 end; end else begin Result := Result + 1; //把找到的文件加到Memo控件 vFileList.Add(StrPas(path) + '\' + searchRec.Name); end; //查找下一个文件或目录 found := FindNext(searchRec); end; //释放资源 FindClose(searchRec); end;