如何遍历目录下所有文件

Question

ret := findFirst(key, faanyfile, search);
  while ret = 0 do begin
    if ((search.Attr and fadirectory) = faDirectory)
      then begin
      if (Search.Name <> '.') and (Search.name <> '..') then
        CopyDirectory(SourcePath + Search.name,TargetPath+search.Name);
    end else begin
      if ((search.attr and fadirectory) <> fadirectory) then
      begin
          //do something
      end;
    end;
    ret := FindNext(search);
  end;

Answer 1

最简单的方法是用TDirectoryListBox和TFileListBox。这样应该比较简单。
否则，就用FindFirstFile和FindNextFile两个API函数。

Answer 2

我的回答还差两个变量申明:
var
  search: TSearchRec;
  ret: integer;

Answer 3

同意：　kevin_gao(困了！累了！睡觉了！)　

Answer 4

忘了说。
CopyDirectory就是这个函数。是用的递归。