Textdateien automatisch erstellen und nach Ordner benennen

@echo off & setlocal
set "Quelle=F:\"  
set "Ziel=%userprofile%\Desktop\ExterneFestplatte_F"  

for /d /r "%Quelle%" %%i in (*) do set "Pfad=%%~fi" & call :ProcessDir "%%i"  
goto :eof

:ProcessDir
call set "PfadRel=%%Pfad:%Quelle%=%%"  
md "%Ziel%\%PfadRel%\" 2>nul && copy nul "%Ziel%\%PfadRel%\%~nx1">nul  
goto :eof

@ECHO OFF
SETLOCAL EnableDelayedExpansion
MD C:\BATCHES

SET SOURCEFOLDER=U:\
SET TARGETFILE=C:\Batches\verzeichnisliste.txt
SET KOMMANDO=dir %SOURCEFOLDER% /s

REM DELETE AND GENERATE TARGETFILE
ECHO LIST OF MY DIRECTORIES ON %SOURCEFOLDER%  -  %DATE% - %TIME:~0,-3% >%TARGETFILE%
ECHO =============================================================================== >>%TARGETFILE%

REM LOOP-DI-LOOP
FOR /f "tokens=* delims=" %%a IN ('%KOMMANDO% ^|find "Verzeichnis von"') DO (  
                 CALL :SPLITSTRING "%%a"  
)
GOTO ENDE

REM EXTRACT FOLDERNAME FROM STRING
:SPLITSTRING
SET TMPSTRING=%1
SET RESULTSTR=%TMPSTRING:~18,-1%
ECHO %RESULTSTR% >>%TARGETFILE%
goto :EOF


:ENDE
pause
@ECHO.
type %TARGETFILE%
@ECHO.

pause

@echo off & setlocal
set "Quelle=F:\"  
set "Ziel=%userprofile%\Desktop\ExterneFestplatte_F"  

md "%Ziel%" 2>nul  
for /d /r "%Quelle%" %%i in (*) do call :ProcessDir "%%i"  
goto :eof

:ProcessDir
set "Suffix="  
set /a Nr=1000
:Test
if not exist "%Ziel%\%~nx1%Suffix%.txt" goto :Schreiben  
set /a Nr+=1
set "Suffix=_%Nr:~-2%"  
goto :Test

:Schreiben
copy nul "%Ziel%\%~nx1%Suffix%.txt">nul  
goto :eof

dir /s/b/ad "%SOURCEFOLDER%">>"%TARGETFILE%"