(Batch) Ordner durchstöbern

@echo off &setlocal
REM Startpfad
set "directory=C:\irgendwo"  

REM Aufruf der Subroutine mit dem Startpfad als Argument.
call :ListRecursively "%directory%"  

REM Ende des Hauptcodes.
pause
exit /b


REM Subroutine zur Verarbeitung des Inhaltes eines Verzeichnisses.
:ListRecursively DirectoryPath
echo ~~~~~~~~~~~~~~~~~~~~
REM In %1 befindet sich der als Argument übergebene Pfad.
echo In %1 existieren die Dateien:
REM Zunächst alle Dateien im Verzeichnis auflisten (/a-d schließt Unterverzeichnisse aus)
2>nul dir /a-d /b %1
REM Nur Unterverzeichnisse auflisten (/ad) und für jedes gefundene die Subroutine erneut aufrufen.
for /f "delims=" %%i in ('2^>nul dir /ad /b %1') do call :ListRecursively "%~1\%%i"  
REM Ende der Subroutine.
exit /b