델파女 wrote:

> 안냐세여,, 델파초보여요,,

>

> copyfile(pchar('d:aa.txt'), pchar('c:aa.txt'),false);

>

> 이런 명령에서요,, 지정된 하나의 화일 말구

> 현 d:*.* 을 c:*.* 이런식으로 copyfile을 사용할수는 없나여?

> 제가 넘 무식했나여? ^^;;

> 다른 명령있으면 알려주세요

> 감사합니다,,,

>





TSearchRec 라는 객체를 사용하면 가능합니다.



var

DirInfo: TSearchRec;

r : Integer;

s, t : String;

begin

r := FindFirst(ExtractFilePath(Application.ExeName)+'data*.*', FaAnyfile,

DirInfo);

While r = 0 do

begin

if ((DirInfo.Attr and FaDirectory <> FaDirectory) and

(DirInfo.Attr and FaVolumeId <> FaVolumeID))

then

s := ExtractFilePath(Application.ExeName)+'data'+DirInfo.Name;

t := ExtractFilePath(Application.ExeName)+'temp'+DirInfo.Name;

CopyFile(PChar(s),PChar(t),False);



r := FindNext(DirInfo);

end;

SysUtils.FindClose(DirInfo);

end;