Delphi6/7 디렉토리(폴더) 다이알로그, 폴더속에 있는 파일들 복사하기

디렉토리 다이알로그 띄우기 : http://bloodguy.tistory.com/entry/Delphi-%EB%94%94%EB%A0%89%ED%86%A0%EB%A6%AC-%EC%84%A0%ED%83%9D-Dialog-%EB%9D%84%EC%9A%B0%EA%B8%B0

위 글을 찾은 이유는 한 폴더속에 있는 파일들을, 사용자가 지정한 폴더에 복사해야 할 일이 생겼기 때문이다.
아래는 이 작업에 대한 코드 조각이다.

var
  srcDir, descDir : String;
  sr : TSearchRec;
  srcFullPath, descFullPath : String;
begin
  // 사용자가 폴더를 지정했으면
  if SelectDirectory('','',descDir) then
  begin
    // 파일을 끄집어 내기 위한 준비를 한다. TSearchRec의 인스턴스를 초기화 한다.

    if FindFirst(srcDir, faArchive, sr) = 0 then
      // sr에서 파일을 하나씩 끄집어 내서 복사 한다.
      while FindNext(sr) = 0 do begin
        srcFullPath := PChar(ExtractFilePath(srcDir) + sr.Name);
        descFullPath := PChar(descDir + '\' + sr.Name);
        CopyFile(PChar(srcFullPath), PChar(descFullPath), False);
      end;
    FindClose(sr);
  end;
end;