팁모아 게시판에 올라온 강민주님이 올리신 글입니다.

(이거 그래도 복사해서 올려도 되나? ^^; )





작성자 : 강민주 (pantera@kitel.co.kr) 추천: 1, 조회: 392, 줄수: 40, 분류: Etc.

Re: [팁] 디렉토리 삭제(하위폴더와 파일도 삭제함)

디렉토리 삭제하기





procedure DeleteFiles (const Path, Mask : string; recursive : boolean);

var

Result : integer;

SearchRec : TSearchRec;

begin

Result := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);

while Result = 0 do

begin

if not DeleteFile (Path + SearchRec.name) then

begin

FileSetAttr (Path + SearchRec.name, 0); { reset all flags }

DeleteFile (Path + SearchRec.name);

end;

Result := FindNext(SearchRec);

end;

FindClose(SearchRec);



if not recursive then

exit;



Result := FindFirst(Path + '*.*', faDirectory, SearchRec);

while Result = 0 do

begin

if (SearchRec.name <> '.') and (SearchRec.name <> '..') then

begin

FileSetAttr (Path + SearchRec.name, faDirectory);

DeleteFiles (Path + SearchRec.name + '', Mask, TRUE);

RmDir (Path + SearchRec.name);

end;

Result := FindNext(SearchRec);

end;

FindClose(SearchRec);

end;





EXAMPLE : DeleteFiles ('c:temp', '*.txt', True);







남윤혁 wrote:

> deleteFile 함수는 파일명을 써야 파일이 지워집니다.

>

> 저는 디렉토리 속의 파일들을 삭제하고 싶습니다.

>

> 도스 명령으로 del *.jpg, del *.*

>

> 뭐 이런식으로요...

>

> 가능한 방법이 없겠습니까?

>

> 고수님들... 답변 부탁드립니다.