Карта сайтаСсылкиКонтакты

Проверяем, пустой ли каталог

PDF Печать
Статьи

Ниже приведена функция, которая определяет пустой ли каталог и возвращает True, если каталог пустой и False, если нет.


function DirectoryIsEmpty(Directory: string): Boolean;
var
  SR: TSearchRec;
  i: Integer;
begin
  Result := False;
  FindFirst(IncludeTrailingPathDelimiter(Directory) + '*', faAnyFile, SR);
  for i := 1 to 2 do
    if (SR.Name = '.') or (SR.Name = '..') then
      Result := FindNext(SR) <> 0;
  FindClose(SR);
end;

Пример использования


procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryIsEmpty('C:\test') then
    Label1.Caption := 'empty'
  else
    Label1.Caption := 'not empty';
end;

 

Добавить комментарий


Защитный код
Обновить