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

@echo off
set file=png
set folder=INPUT\
 
for /f "tokens=*" %%a in ('dir /b ".\%folder%*"') do call :IF "%%a"
for /f "tokens=*" %%a in ('dir /b ".\%folder%*"') do call :IF "%%a"
pause
exit
 
:IF
set x=%~x1
if defined x goto :FILE
if not defined x goto :FOLDER
goto :EOF
 
:FILE
if "%x%"==".bat" goto :EOF
if not "%x%"==".%file%" del /q "%folder%%~1"
goto :EOF
 
:FOLDER
set n=0
for %%b in ("%folder%%~1\*") do call :FOLDER-FILE "%%b"
for %%c in ("%folder%%~1\*") do if exist "%%c" set /a n+=1
if "%n%"=="0" rd /q "%folder%%~1"
goto :EOF
 
:FOLDER-FILE
set x2=%~x1
if not "%x2%"==".%file%" del /q %1
goto :EOF

goto start
:fn1
for /d %%i in ("%~1\*") do (call :fn1 "%%i" & rd /q "%%i")
exit /b
:start
call :fn1 "C:\folder"

goto empdir
:empty
for /d %%i in ("%~1\*") do (call :empty "%%i" & echo Text > "%%i\1.txt")
exit /b
:empdir
call :empty "C:\folder"

dir/b "papka"|>nul find/v "" || rem:>"1.txt"

& rd /q "%%i"

& echo Text > "%%i\1.txt"

@echo off
for /f "delims=" %%a in ('dir /ad/b/s "papka"') do dir/b "%%a"|>nul find/v "" || rem:>"%%a\1.txt"
exit

for /f "delims=" %%a in ('dir /a:d /s /b ') do dir /b "%%a"|find /v ""||rd "%%a"

@Echo Off &Cls
    Set "BoxIn=%~dp0"
    FOR /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%" /S /A:D /B ^|Sort /R`) DO 2>nul Rd "%%f"
Exit /B 0

@@@  ::: СОБАЧЬЯ ШАПКА :::
@@@  IF EXIST "__%~N0.exe" ("__%~N0.exe" %*) & ( EXIT /B )  
@@@  FOR /F "TOKENS=3" %%X IN ('reg query "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" /V InstallPath') DO @(SET DOTNET=%%X)
@@@  IF NOT DEFINED DOTNET (ECHO .NET ERROR. Goodbye ) & ( EXIT /B )
@@@  FINDSTR /B /VC:@@@  "%~F0" > "__%~N0.cs"
@@@  %DOTNET%CSC.EXE -NOLOGO -OPTIMIZE+ -OUT:"__%~N0.exe" -TARGET:exe "__%~N0.cs"
@@@  IF EXIST "__%~N0.exe" ("__%~N0.exe" %*)
@@@  EXIT /B
 
using System;
using System.IO;
using System.Linq;
 
class Program
{
    static void Main(string[] args)
    {
        if ( args.Length > 0 ) {
       
            DeleteEmptyDirs( args[0] );  
            Console.WriteLine( "All done !" );
        }
        else {
            Console.WriteLine( "Nothing to do. Specify starting directory" );
        }
    }
 
    static void DeleteEmptyDirs(string dir)
    {
        if (String.IsNullOrEmpty(dir))
            throw new ArgumentException(
                "Starting directory is a null reference or an empty string",
                "dir");
 
        try
        {
            foreach (var d in Directory.EnumerateDirectories(dir))
            {
                DeleteEmptyDirs(d);
            }
 
            var entries = Directory.EnumerateFileSystemEntries(dir);
 
            if (!entries.Any())
            {
                try
                {
                    Directory.Delete(dir);
                }
                catch (UnauthorizedAccessException) { }
                catch (DirectoryNotFoundException) { }
            }
        }
        catch (DirectoryNotFoundException) { }
        catch (UnauthorizedAccessException) { }
    }
 
}

delempty c:\users\user\test

__delempty c:\users\user\test