Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Директории Как проверить, пуста директория, или нет?

Как проверить, пуста директория, или нет?

Оцените материал
(0 голосов)

Как проверить, пуста директория, или нет?

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
      Caption := 'Пустая директория'
   else
      Caption := 'В директории есть файлы';
end;
Прочитано 5772 раз
Другие материалы в этой категории: « Как очистить директорию?

Авторизация



Счетчики