Tag Archives: 폴더

디렉토리와 그 안에 있는 모든 파일 지우기

 

procedure TForm1.Button1Click(Sender: TObject);
var
  DirInfo: TSearchRec;
  r : Integer;
begin
  r := FindFirst(‘C:DownloadTest*.*’, FaAnyfile, DirInfo);
  while r = 0 do
  begin
    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
       (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then

      if DeleteFile(pChar(‘C:Downloadtest’ + DirInfo.Name)) = false then ShowMessage(‘파일을 지울 수 없음 : C:Downloadtest’ + DirInfo.Name);

    r := FindNext(DirInfo);
  end;

  SysUtils.FindClose(DirInfo);

  if RemoveDirectory(‘C:DownloadTest’) = false then ShowMessage(‘디렉토리를 지울 수 없음 : C:Downloadtest’);
end;