안창기 wrote:

> 디렉토리에 있는 파일을 한번에 삭제하는 방법좀 알으켜 주세요.

> 디렉토리에 있는 파일 하나를 삭제하는게 아니고 디렉토리에 있는

> 파일을 모두 삭제하는데 디렉토리안에 파일이름은 알수가 없거든요.

> 파일이름을 주지않고 삭제하는 방법을 알으켜 주세요.

> 알고 계시면 메일을 주세요.....

////////////////////////////////////////////

아래것을 참조해보세요

유닛에 FileCtrl를 추가선언하구요

var

DirInfo: TSearchRec;

r : Integer;

Dir_Name : string;

begin

Dir_Name := '디렉토리전체';

if DirectoryExists(Dir_Name)then begin

r := FindFirst(Dir_Name +'*.*', FaAnyfile, DirInfo);

While r = 0 do begin

if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then

DeleteFile(pChar(Dir_Name +'' + DirInfo.Name));

r := FindNext(DirInfo);

end;

SysUtils.FindClose(DirInfo);

//RemoveDirectory(PChar(Dir_Name));//디렉토리삭제

end;

end;