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;
{用队列的方法遍历文件} function EnumFileInQueue(path:PChar):Longint;stdcall; var searchRec:TSearchRec; found:Integer; tmpStr:String; curDir:string; dirs:TQueue; pszDir: PChar; begin Result:=0;//查找结果(文件数) dirs:=TQueue.Create;//创建目录队列 dirs.Push(path);//将起始搜索路径入队 pszDir := dirs.Pop; curDir:=StrPas(pszDir);//出队 StrDispose(pszDir); {开始遍历,直至队列为空(即没有目录需要遍历)} while (True) do begin //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径 tmpStr:=curDir+'\*.*'; //在当前目录查找第一个文件、子目录 found:=FindFirst(tmpStr,faAnyFile,searchRec); while found=0 do //找到了一个文件或目录后 begin //如果找到的是个目录 if (searchRec.Attr and faDirectory)<>0 then begin {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录" 大概是表示上层目录和下层目录吧。。。要过滤掉才可以} if (searchRec.Name <> '.') and (searchRec.Name <> '..') then begin {由于查找到的子目录只有个目录名，所以要添上上层目录的路径 searchRec.Name = 'Windows'; tmpStr:='c:\Windows'; 加个断点就一清二楚了 } tmpStr:=curDir+'\'+searchRec.Name; {将搜索到的目录入队。让它先晾着。 因为TQueue里面的数据只能是指针,所以要把string转换为PChar 同时使用StrNew函数重新申请一个空间存入数据，否则会使已经进 入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。} dirs.Push(StrNew(PChar(tmpStr))); end; end //如果找到的是个文件 else begin {Result记录着搜索到的文件数。可是我是用CreateThread创建线程 来调用函数的，不知道怎么得到这个返回值。。。我不想用全局变量} Result:=Result+1; //把找到的文件加到Memo控件 Form1.Memo1.Lines.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;
