Total Commander

Code: Select all

program DelEmpty;

{$APPTYPE CONSOLE}

uses
  SysUtils, StrUtils, Windows;

var
  basepath: string;
  del: boolean;
  fp: boolean;
  i: integer;

procedure givehelp;
  begin
    writeln;
    writeln('DelEmpty 1.03, 25 Mar 2004');
    writeln('By Roman Korcek <thehacker@host.sk>, <roman_korcek@hotmail.com>');
    writeln;
    writeln('Shows and eventually deletes empty dirs recursively from a given path.');
    writeln;
    writeln('Usage:');
    writeln('delempty <path> [del] [fp]');
    writeln;
    writeln('path: the start path - only subdirs of this dir will be checked');
    writeln(' del: shows and DELETES empty dirs found under <path>');
    writeln('  fp: shows the full (not just relative to <path>) path when listing empty dirs');
    writeln;
    writeln('Note:');
    writeln('When deleting, a dir is also considered empty if it contains other empty dirs.');
    writeln('When NOT deleting, only truly empty dirs will be shown.');
    halt;
  end;

function nulltermstr(strn: string): PChar;
begin
  result := pchar(strn);
end;


procedure processdir(thisdir: string);
var
  fileinfo: tsearchrec;
  errormessage: array [0..80] of char;

begin
  chdir(thisdir);

  // if we're in the root dir...
  if length(getcurrentdir) = 3 then
    begin
      if findfirst('*.*', faAnyFile, fileinfo) = 0 then
        if fileinfo.attr and faDirectory <> 0 then
          processdir(includetrailingpathdelimiter(expandfilename(fileinfo.name)));
    end
  else  // we're not in the root dir, we need to skip '.' and '..'
    begin
      findfirst('*.*', faAnyFile, fileinfo);
      findnext(fileinfo);
    end;

  while findnext(fileinfo) = 0 do
    if fileinfo.attr and faDirectory <> 0 then
      processdir(includetrailingpathdelimiter(expandfilename(fileinfo.name)));
  sysutils.findclose(fileinfo);

  if thisdir <> basepath then
    begin
      findfirst('*.*', faAnyFile, fileinfo);
      findnext(fileinfo);
      if findnext(fileinfo) <> 0 then
        begin
          sysutils.findclose(fileinfo);
          if fp = true then
            writeln(ifthen(del, 'Deleting: '), thisdir)
          else
            writeln(ifthen(del, 'Deleting: '), rightstr(leftstr(basepath,length(basepath)-1),
             length(basepath)-lastdelimiter('\', basepath)+1), '\',
             extractrelativepath(basepath, thisdir));
          chdir('..');
          if del = true then
            if removedirectory(nulltermstr(thisdir)) = FALSE then
              begin
                formatmessage(FORMAT_MESSAGE_FROM_SYSTEM, NIL, getlasterror, 0, errormessage, 80, NIL);
                writeln('Failed. Reason: ' + errormessage);
              end;
        end
      else
        begin
          sysutils.findclose(fileinfo);
          chdir('..');
        end;
    end;
end;

begin
  if (paramcount < 1) or (paramcount > 3) then
    givehelp;

  for i := 2 to paramcount do
    begin
      if ansiuppercase(paramstr(i)) = 'DEL' then
        del := true
      else
        if ansiuppercase(paramstr(i)) = 'FP' then
          fp := true;
    end;

  basepath := includetrailingpathdelimiter(expandfilename(paramstr(1)));
  if directoryexists(basepath) = false then
    begin
      writeln('Incorrect path given.');
      givehelp;
    end
  else
    begin
      if length(basepath) = 3 then
        fp := true;
      processdir(basepath);
    end;
end.

Code: Select all

"%P\" "%T\"

Code: Select all

#NoEnv

; Keep looping over target dir structure until no empty dir can be found / deleted
EmptyDirDeleted = 0
Loop,
{
	Loop, %2%*.*, 2, 1
	{
		FileRemoveDir, %A_LoopFileLongPath%, 0
		IfEqual, ErrorLevel, 0
			EmptyDirDeleted = 1
	}

	IfEqual, EmptyDirDeleted, 0
		Break

	EmptyDirDeleted = 0
}

; Copy all empty dirs from source dir structure
Empty = 1
Loop, %1%*.*, 2, 1
{
	Loop, %A_LoopFileLongPath%\*.*, 1
		Empty = 0

	IfEqual, Empty, 1
	{
		; Keep the dir structure
		StringReplace, TargetDir, A_LoopFileLongPath, %1%, %2%

		FileCopyDir, %A_LoopFileLongPath%, %TargetDir%
		Empty = 0
	}

	Empty = 1
}

; Copy all dirs' attributes
Loop, %2%*.*, 2, 1
{
	StringReplace, SourceDir, A_LoopFileLongPath, %2%, %1%
	IfExist, %SourceDir%
	{
		FileGetAttrib, Attribs, %SourceDir%
		StringReplace, Attribs, Attribs, D
		StringReplace, Attribs, Attribs, C
		FileSetAttrib, +%Attribs%, %A_LoopFileLongPath%, 2
		FileGetTime, Time, %SourceDir%
		FileSetTime, %Time%, %A_LoopFileLongPath%, , 2
		FileGetTime, Time, %SourceDir%, C
		FileSetTime, %Time%, %A_LoopFileLongPath%, C, 2
		FileGetTime, Time, %SourceDir%, A
		FileSetTime, %Time%, %A_LoopFileLongPath%, A, 2
	}
}