Ну все в принципе понятно, рекурсивный обход каталогов с удалением всех файлов, и последующим удалением самого каталога. Но вот я не понял зачем сначала менять аттрибут файла а затем этот файл удалять? Зачем вообще меняется аттрибут?
И потом, есть уже готовый модуль работы с файловой системой IOUtils, а в нем для TDirectory есть метод Delete(const Path: string; const Recursive: Boolean);
|