Ms-Dos - SCRIPT para contar archivos en windows

@echo off

set A_2014=0

set A_2015=0

set A_2016=0

FOR %%a in (Recibidos Enviados) do Call :Cuenta %%a

cd \

goto :EOF

:Cuenta

   cd C:\%1

   FOR %%b in (*.*) do call :Tratar %%~tb %%b

   echo Carpeta "%1":

   echo %A_2014% archivos del año 2014

   echo %A_2015% archivos del año 2015

   echo %A_2016% archivos del año 2016

   echo.

   set A_2014=0

   set A_2015=0

   set A_2016=0

   goto :EOF

:Tratar

   set Fech=%1

   set year=%Fech:~6,4%

   if %Year% == 2014 set /A A_2014+=1

   if %Year% == 2015 set /A A_2015+=1

   if %Year% == 2016 set /A A_2016+=1

   goto :EOF