하위 디렉토리와 .. 디렉토리에 있는 모든 화일을 복사 하려고 합니다...

그런데 원하는 대로 안되는 군요... --;



아래는 소스이구요...

보시고... 잘못된 부분있음 지적해주세요...

글구... 하위 디렉토리 와... 그곳에 있는 화일 모두 복사하는거 소스 있음...

꼭 보내셔요......



//------------------------------------------------------------



FindFirst(Origin_PathName + '*.*',faAnyfile,SR);



repeat

if (SR.Name = '.') or (SR.Name = '..') then

begin

FindNext(SR);

Continue;

end;

if SR.Attr = faDirectory then

begin

if DirectoryExists(Copy_PathName + '' + SR.Name) = False then

System.MkDir(Copy_PathName + '' + SR.Name);



FindNext(SR);

Continue;

end;

CopyFile( PChar(Origin_PathName + '' + SR.Name),PChar(Copy_PathName + '' + SR.Name),false);

Until FindNext(SR) <> 0;

FindClose(SR);



//------------------------------------------------------------