@ECHO OFF

blat -install mrcav mrcdbarchive@mr-carpet.co.uk

SET ArchivePath=M:\MrC
SET NumberDays=30

SET ReportPath=M:
SET ArchiveLogFile=MrCDBArchive.log

SET EmailTo=peterguyan@mr-carpet.co.uk

FOR /F "TOKENS=1* DELIMS= " %%A IN ('DATE/T') DO SET CDATE=%%B 
FOR /F "TOKENS=1,2 eol=/ DELIMS=/ " %%A IN ('DATE/T') DO SET mm=%%B 
FOR /F "TOKENS=1,2 DELIMS=/ eol=/" %%A IN ('echo %CDATE%') DO SET dd=%%B 
FOR /F "TOKENS=2,3 DELIMS=/ " %%A IN ('echo %CDATE%') DO SET yyyy=%%B 
SET date=%date:~0,2%-%date:~3,2%-%date:~6,6%

md %ReportPath%\%date%

echo " " > %ReportPath%\%date%\%ArchiveLogFile% 
echo Archive Report - %DATE% - %TIME% >> %ReportPath%\%date%\%ArchiveLogFile% 
echo " " >> %ReportPath%\%date%\%ArchiveLogFile%

forfiles -p %ArchivePath% -m *.* -d -%NumberDays% -c "cmd /c ECHO @PATH, @FDATE - @FTIME" >> %ReportPath%\%date%\%ArchiveLogFile%

forfiles -p %ArchivePath% -m *.* -d -%NumberDays% -c "cmd /c del /q @FILE & if @ISDIR==TRUE rd /s /q @FILE" >> %ReportPath%\%date%\%ArchiveLogFile%

blat %ReportPath%\%date%\%ArchiveLogFile% -to %EmailTo% -subject "Archive Report: "%ArchivePath%", older than %NumberDays% days"

rmdir /s /q %ReportPath%\%date%