:: *****************************************
:: ** MD dir of date and move the file
:: *****************************************
:md_copy
set dir_n=%1
set "dir_n=%dir_n:~1,10%"
if not exist %dir_n%\nul (md %dir_n% 1>nul 2>nul
set /a dirnum+=1)
goto :eof
:: *******************************************************
:: ** move the photo if file is already exist. change name
:: *******************************************************
:move_photo
set seq_num=0
set dir_n=%2
set "dir_n=%dir_n:~1,10%"
set file_name=%3
set "file_name=%file_name:~1,-1%"
if not exist %dir_n%\%1 (move %1 %dir_n%
set /a move_num+=1) else (set /a cmove_num+=1
call :cn_move %1 %dir_n% %3 %4)
goto :eof
:: *******************************************************
:: ** Change file name move file
:: *******************************************************
:cn_move
set /a seq_num+=1
set file_name=%3
set "file_name=%file_name:~1,-1%"
if not exist %2\"%file_name%%seq_num%%4" (move %1 %2\"%file_name%%seq_num%%4"
set /a move_num+=1) else call :cn_move %1 %2 "%file_name%" %4
goto :eof