Erstellungsdatum eines Fotos als Ordner erstellen und dann kopieren

:start
@echo off
set "quelldir=F:\DCIM\100DICAM"  
set "zieldir=c:\bilder"  

if exist %quelldir%\>nul goto import
cls
@echo keine Karte gefunden
@echo Bitte Karte in das Laufwerk legen.
@echo ...und eine Taste drücken
pause
goto start


:import
for /f "delims=" %%i in ('dir /a-d /b "%quelldir%"') do for /f "tokens=1-3 delims=. " %%a in ('dir /tc "%quelldir%\%%i"^|findstr /c:"%%i"') do (  
dir "%zieldir%\%%c\%%b-%%a\" >NUL 2>NUL || md "%zieldir%\%%c\%%b-%%a\" >NUL  
if not exist "%zieldir%\%%c\%%b-%%a\%%c%%b%%a\%%~nxi" title %%i && move "%quelldir%\%%i" "%zieldir%\%%c\%%b-%%a\%%~nxi"  
)
explorer.exe "%zieldir%\"  

exit