@krista
Добрый день!
Для того чтобы проверить пуста ли папка нужно прочесть ее содержимое
Сделать это можно следующим образом:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
function TargetDirIsEmpty(APath: String): Boolean; var SearchRec: TSearchRec; begin Result := True; APath:= IncludeTrailingPathDelimiter(APath); if FindFirst(APath+ '*.*', faAnyFile, SearchRec) = 0 then repeat if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin Result := False; FindClose(SearchRec); Exit; end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; if TargetDirIsEmpty('C:\Temp') then ShowMessage('Папка пуста') else ShowMessage('Папка не пуста'); |