Удаление пустых папок в подпапке

[artemavd]

Экзотично конечно, но как-то работает странно . находит подпапки и подпапки в директории, но не удаляет. Находит и пустые и не пустые. Попробую поколдовать над проверкой на наличие файлов.

Вот, пробую так, но, не работает

function TForm1.finder;
var
 i:integer;
 s:TStringList;
begin
  result:=false;
  ListBox1.Clear; s:=TStringList.Create;
  if SendMessage(ListBox1.Handle,LB_DIR,DDL_DIRECTORY or not DDL_ARCHIVE and not  DDL_DRIVES,
   integer(pchar(path+'*')))<>0 then begin
   result:=true;
   s.Text:=StringReplace(ListBox1.Items.Text,'[','',[rfreplaceall]);
   s.Text:=StringReplace(s.Text,']','',[rfreplaceall]);
   for i:=0 to s.Count-1 do begin
    if s[i]<>'..' then begin
     if not finder(path+s[i]+'\') then
      ListBox2.Items.Add(path+s[i]+'\');

    if s[i] = '' then
    begin
      ListBox2.Items.Delete(i);
    end;

    end;
   end;
  end;
  s.Free;
end;

[Stilet]

но не удаляет

А я там такого и не писал )
Я просто привел пример для разнообразия, может натолкнешся на идею.

[Mozgoed]

using System;
using System.IO;

namespace Mozgoed
{
    public class Program
    {

        public static void Main()
        {
         RemoveEmptyFolders(@"C:\Windows"); //Использование рекурсивной функции
        }

        void RemoveEmptyFolders(string folder) //Сама рекурсивная функция
        {
            string[] items = Directory.GetDirectories(folder);//Узнаём список папок в папке
            if (items.Length > 0) //Если есть папки, то для каждой из них запускаем всё ту же рекурсивную функцию
                foreach (string dir in items)
                    RemoveEmptyFolders(dir);
            items = Directory.GetDirectories(folder);//Снова узнаём список папок в папке
            if (items.Length > 0) return; Если в папке есть хоть одна папка, то мы не имеем права удалять текущую папку. Выходим из этой папки вверх.
            items = Directory.GetFiles(folder); //Иначе: узнаём список файлов в папке
            if (items.Length == 0) //Если в папке нет файлов, значит в ней вообще ничего нет.
                Directory.Delete(folder); //Удаляем текущую папку.
        }
    }
}

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Mozgoed, а какое отношение Ваш код на C# имеет отношение к разделу, в котором Вы его запостили?!
(напоминаю, что данная тема в разделе "Общие вопросы Delphi")

[Sparkman]

procedure removeFolders(path:string);
function isEmpty(path1 : string):boolean;
var sr1 : TSearchRec;
    emp : boolean;
begin
     emp := true;
     if length(path1)>0 then
     begin
          if FindFirst(path1+'\*',127,sr1)=0 then
          begin
               if sr1.Name[1] <> '.' then
               begin
                    emp := false;
               end;
               while FindNext(sr1)=0 do
               if sr1.Name[1] <> '.' then
               begin
                    emp := false;
                    break;
               end;
          end;
          FindClose(sr1);
     end;
     result := emp;
end;
var sr : TSearchRec;
begin
     if length(path)>0 then
     begin
          if FindFirst(path+'\*',faDirectory,sr)=0 then
          begin
               if (sr.Name[1] <> '.')and(isEmpty(path+'\'+sr.Name)) then
               begin
                    RemoveDirectory(PAnsiChar(path+'\'+sr.Name));
               end;
               while FindNext(sr)=0 do
               if sr.Name[1] <> '.' then
               begin
                    if (sr.Attr = faDirectory)and(isEmpty(path+'\'+sr.Name)) then
                    RemoveDirectory(PAnsiChar(path+'\'+sr.Name));
               end;
          end;
          FindClose(sr);
     end;
end;

попробовал с sr.size=0, но, почему то размер всех папок у меня равен нулю.

[BOBAH13]

Ух, разминка какая. Писал в текстовом редакторе, проверять надо. Либо с ручной проверкой так:

procedure RemoveEmptyDirectories(rootPath: String);
var
	searchRec: TSearchRec;
	searchRecSubDirectory: TSearchRec;
	subDirectoryEmpty: Boolean;
begin
	if FindFirst(rootPath + '*', faDirectory, searchRec) = 0 then
	begin
		repeat
			if (searchRec.attr and faDirectory) = faDirectory then
			begin
				if (searchRec.Name <> '.') and (searchRec.Name <> '..') then
				begin
					subDirectoryEmpty := true;
					if FindFirst(rootPath + searchRec.Name + DirectorySeparator + '*', faAnyFile, searchRecSubDirectory) = 0 then
					begin
						repeat
							if (searchRecSubDirectory.Name <> '.') and (searchRecSubDirectory.Name <> '..') then
							begin
								subDirectoryEmpty := false;
								break;
							end;
						until FindNext(searchRecSubDirectory) <> 0;

						FindClose(searchRecSubDirectory);
					end;

					if subDirectoryEmpty then
					begin
						RemoveDir(rootPath + searchRec.Name);
					end;
				end;
			end;
		until FindNext(searchRec) <> 0;

		FindClose(searchRec);
	end;
end;

или на слово поверив документации, а именно функции RemoveDir сделать так:

procedure RemoveEmptyDirectories(rootPath: String);
var
	searchRec: TSearchRec;
begin
	if FindFirst(rootPath + '*', faDirectory, searchRec) = 0 then
	begin
		repeat
			if (searchRec.attr and faDirectory) = faDirectory then
			begin
				if (searchRec.Name <> '.') and (searchRec.Name <> '..') then
				begin
					RemoveDir(rootPath + searchRec.Name);
				end;
			end;
		until FindNext(searchRec) <> 0;

		FindClose(searchRec);
	end;
end;