질문번호 102123 번을 참조하시면 해당 디렉토리의 파일을 가져올수 있습니다.

가져온 파일 리스트를 갖고 Mkdir 함수로 디렉토리를 만들고
CopyFile 이라는 API 함수를 통해서 처리하시면 되리라고 봅니다.

답변에 감사드립니다.
님께서 올려주신 소스는 한폴더 있는 파일의 내용을 정확히
가져 옵니다. 그런데, 제가 알고 싶은 것은
A폴더와 B라는 폴더가 있고
A폴더에 파일3개 존재하며,
A폴더 밑에는 A1 이라는 서브가 폴더가 있고
A1엔 파일이 15개 있습니다.
A1 밑에 A1-1 폴더가
또 있을때 이들 전체를 복사하고자 합니다
감사합니다.

예)
c:\Temp
c:\temp\sokum
c:\temp\dan
c:\temp\ga
c:\temp\sokum\gajang
c:\temp\ sokum\kajang
c:\temp\dan\a1
c:\temp\dan\a2

이런 폴더 내용 전부를 E:\cc 라는
폴더에 복사하고 싶습니다. 죄송합니다.
수고하세요
  

여기 질답게시판에 있는것을 약간 수정... (했었나?)

암튼 그래서 쓰던겁니다. 잘되더군요...

혹시나 모르니 테스트꼭 해보세요~~~

Procedure DirectoryCopy(Sourcedir :string; Destdir: string);
var
  Pstr : array[0..256] of char; //널 종료 문자열로 바꾸기 위한 저정하기 위한 변수
  Pstr2 : array[0..256] of char;
  str : string[255]; //경로를 조립하기 위한 임시 문자열
  str2 : string[255];
  SearchRec : TsearchRec; //소스디렉토리를 검색하고자 할때 쓰이는 레코드(파스칼 구조체입니다)
  Result : integer; //찾았는지 못 찾았는지 여부
begin
  if Sourcedir[Length(Sourcedir)] <> '\' then Sourcedir := Sourcedir + '\';
  if Destdir[Length(Destdir)] <> '\' then Destdir := Destdir + '\';

  str := Sourcedir + '*.*';
  findfirst(str, faanyfile, SearchRec); //소스폴더를 검색한다.
  Result := 0; //검색결과 여부의 초기화

  While Result = 0 do //다음 화일을 찾아 루프를 반복
  begin
    if (SearchRec.name = '.') or (SearchRec.name = '..') then
    begin //폴더가 자기자신이거나 상위폴더일 경우
      Result := findnext(SearchRec); //검색 결과 화일을 찾으면 1이다.)
      continue;
    end;

    if SearchRec.attr = fadirectory then //발견한 대상이 디렉토리이면
    begin
      str := Sourcedir + SearchRec.name; //소스디렉토리 와 발견한 디렉토리를 더한다.
      str2 := Destdir + SearchRec.name; //타켓디렉토리 와 발견한 디렉토리를 더해준다.
//한번만들고 나면 계속만들필요가 없다....
      Mkdir(str2); //타켓디렉토리를 생성한다.
      DirectoryCopy(str, str2); //디렉토리 이므로 여기서 자기자신을 재귀호출한다.
      Result := findnext(SearchRec); //결과를 돌려준다.
      continue;
    end;

    //아래는 찾은것이 화일일 경우 복사를 하는 부분이다.
    //완전 경로명으로 조립해 주어야 한다.
    str := Sourcedir + SearchRec.name;
    str2 := Destdir + SearchRec.name;
    StrPcopy(pstr, str);
    StrPcopy(pstr2, str2);
    copyfile(pstr, pstr2, nil);
    //이것은 API함수이다. Parameter는
    //copyfile(소스화일명, 데스트화일명, 플래그) 마지막 인자인 플래그는 false 일경우 화일이 존재할때 덮어쓴다.)
    Result := findnext(SearchRec); //검색여부
  end; //While 문의 끝
end;

제 글에 답변을 주신
무심코 님과 모영철 님께
감사의 말씀을 올립니다.
모영철님께서 주신 소스를
사용하니 바로 되었읍니다.
감사합니다.
그래서 저처럼 잘 모르는
분을 위해 이것 저것
짜집기 한 소스를 (초간단)
자료실에 올리려고 합니다.
욕하시진 마세요
감사합니다.