Länge von Dateiname ermitteln

@echo off & setlocal
set "Ordner=D:\Test"  
set "Log=D:\LangeNamen.txt"  
set L=15

if exist "%Log%" del "%Log%"  
for /f "delims=" %%i in ('dir /s /b /a-d "%Ordner%\*.*"') do call :ProcessFile "%%i"  
goto :eof

:ProcessFile
set "Name=%~n1"  
call set "Z=%%Name:~%L%%%"  
if defined Z >>"%Log%" echo %~1;%~n1  
goto :eof

for /f "delims=" %%i in ('dir /s /b /a-d "%Ordner%\*.*"') do >>"%Log%" echo %%i;%%~ni

:: -------snipp FileLen.cmd
@echo off & setlocal enableDelayedExpansion
if "%1"=="" %0 15 15  
if "%2"=="" %0 %1 17  

set "Ordner=D:\Temp"  
:: set "Log=D:\work:\LangeNamen.txt" 
Set "Log=con:"   
Set /a "Lmin=%1,Lmax=%2"  

if exist "%Log%" del "%Log%"  
For /L %%x in (%Lmin%,1, %Lmax%) do (
  Set /a "Sum=0"  
  for /f "delims=" %%i in ('dir /s /b /a-d "%Ordner%\*.txt"') do call :ProcessFile "%%i" %%x  
  echo Anzahl Namen mit %%x Zeichen: !sum!  
)  
goto :eof

:ProcessFile
set "Name=%~n1;"  
Set "Z=!name:~%2!"  
if defined Z if "!name:~%2,1!"==";" set /a "sum+=1" &&   >>"%Log%" echo %2;%~1;%~n1  

goto :eof

>e:\schnipsel\FileLen
15;D:\Temp\DeCryptErgebnis.txt;DeCryptErgebnis
15;D:\Temp\input\jetzte001auszug.txt;jetzte001auszug
15;D:\Temp\Stp\STp925Schnipsel.txt;STp925Schnipsel
15;D:\Temp\xxx\DeCryptErgebnis.txt;DeCryptErgebnis
Anzahl Namen mit 15 Zeichen: 4

>e:\schnipsel\FileLen 15 17
15;D:\Temp\DeCryptErgebnis.txt;DeCryptErgebnis
15;D:\Temp\input\jetzte001auszug.txt;jetzte001auszug
15;D:\Temp\Stp\STp925Schnipsel.txt;STp925Schnipsel
15;D:\Temp\xxx\DeCryptErgebnis.txt;DeCryptErgebnis
Anzahl Namen mit 15 Zeichen: 4
16;D:\Temp\nerovistaNospace.txt;nerovistaNospace
16;D:\Temp\eins\nerovistaNospace.txt;nerovistaNospace
16;D:\Temp\input\vbsskripte_files.txt;vbsskripte_files
Anzahl Namen mit 16 Zeichen: 3
17;D:\Temp\Q_Createtable_NEW.txt;Q_Createtable_NEW
Anzahl Namen mit 17 Zeichen: 1