поиск файлов в 0 байт

[AppData]

добрый день, программисты.

подскажите как сделать поиск файлов с 0 байтом. то есть, пустые и удалить их?

function FileExistsAndEmpty(const AFileName: string): Boolean;
var
  sr: TSearchRec;
begin
  Result := FindFirst(AFileName, faAnyFile, sr) = 0;
  if Result then begin // file exists ...
    Result := sr.Size = 0;
    FindClose(sr);
  end;
end;

потипа такого

Find0File('c:\folder\');

[Arigato]

Для поиска следующего файла надо в цикле использовать функцию FindNext.

[newerow1989]

procedure Find0File(dir: string);
var
  sr: TSearchRec;
begin
   ChDir(dir);
   if IOResult<>0 then
      Exit;
   if FindFirst('*', faAnyFile, sr)=0 then
   repeat
      if (sr.Name='.') or (sr.Name='..') then
         Continue;
      if sr.Size=0 then
         DeleteFile(sr.Name);
   until FindNext(sr)<>0;
   FindClose(sr);
end;

function FileExistsAndEmpty(const AFileName: string): Boolean;
var FindData: TWIN32FindData;
    S: int64;
begin
   Result:=false;
   if not FileExists(AFileName) then
      Exit;
   FindFirstFile(PChar(AFileName), FindData);
   S:=FindData.nFileSizeHigh;
   S:=S shl 32;
   S:=S or FindData.nFileSizeLow;
   Result:=S=0;
end;

[AppData]

newerow1989, оно самое. только почему то когда создаю пустой rar или zip файл он уже с каким то весом.

[Arigato]

Сообщение от AppData

пустой rar или zip файл он уже с каким то весом

Есть такое понятие, как заголовки, которые присутствуют во многих форматах файлов.

Если такие файлы тоже надо учесть и удалить, то можно сделать дополнительную проверку. Условие для удаления: либо файл нулевого размера, либо проверяем все известные расширения и сравниваем с размером пустого файла конкретного типа.

[AppData]

Спасибо! допилил!