@echo off

c:
cd\

for /f "tokens=1,2,3,4 delims=/ " %%i in ('date /t') do (
set c1=%%i
set c2=%%j
set c3=%%k
set c4=%%l
)
set datevar=%c3%%c1%%c2%%c4% 

M:
set wDIR="\Cameras\cam00"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam60"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam61"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam62"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam63"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam64"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam65"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam66"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam67"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam68"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam69"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam70"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam71"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam72"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam73"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam74"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam75"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam76"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam77"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam78"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam79"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam80"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam81"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam82"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam83"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam84"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam85"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam86"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam87"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam88"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)

M:
set wDIR="\Cameras\cam89"
if exist %wDIR% (
cd %wDIR%
call :updatecurrent
)


::The END
C:
exit

:updatecurrent
::Does folder exist
if not exist current (
  goto :addCurrent
)
:: Is folder empty
set _TMP=
for /f %%m in ('dir /b current') do (
  rename current %datevar%
)
:addCurrent
mkdir current
exit /b