꼴통 wrote:

> 안녕하세여

> 리스트뷰에 디렉토리를 Remove시키는 방법좀 알켜주세여

> 아! 디렉토리 속에 file이 있을 때는 어케하야하져?

> 간단한 예문으로 설명해 주시면 감사하겠내여





다음과 같이 해보세여~

먼저 파일들을 지운다음에 폴더를 지운검다~~ ^^!

그럼 20000



procedure TForm1.Button1Click(Sender: TObject);

var

DirInfo: TSearchRec;

r : Integer;

begin

r := FindFirst('C:Test*.*', FaAnyfile, DirInfo);

while r = 0 do

begin

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

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

DeleteFile(pChar('C:Test' + DirInfo.Name));



r := FindNext(DirInfo);

end;



SysUtils.FindClose(DirInfo);

RemoveDirectory('C:Test');

end;