Batch files - Delete 7 days older back up files

Its really difficult to calculate date in batch files since date object is not available. Please Comment if anyone has got suggestion about below code



set Month=%date:~3,2%
set Day=%date:~0,2%
set Year=%date:~6,4%
Set CDay=%date:~0,2%
Set CMonth=%date:~3,2%
Set CYear=%date:~6,4%

if 01 EQU %Day% set Day=1
if 02 EQU %Day% set Day=2
if 03 EQU %Day% set Day=3
if 04 EQU %Day% set Day=4
if 05 EQU %Day% set Day=5
if 06 EQU %Day% set Day=6
if 07 EQU %Day% set Day=7
if 08 EQU %Day% set Day=8
if 09 EQU %Day% set Day=9


if 01 EQU %Month% set Month=1
if 02 EQU %Month% set Month=2
if 03 EQU %Month% set Month=3
if 04 EQU %Month% set Month=4
if 05 EQU %Month% set Month=5
if 06 EQU %Month% set Month=6
if 07 EQU %Month% set Month=7
if 08 EQU %Month% set Month=8
if 09 EQU %Month% set Month=9

set Lday=%Day%
set /A LMonth=%Month%

if %CDay% EQU 02 set /A Lday -= 8
if %CDay% EQU 03 set /A Lday -= 8
if %CDay% EQU 04 set /A Lday -= 8
if %CDay% EQU 05 set /A Lday -= 8
if %CDay% EQU 06 set /A Lday -= 8
if %CDay% EQU 07 set /A Lday -= 8
if %CDay% EQU 08 set /A Lday -= 8
if %CDay% EQU 01 set /A Lday -= 7
if %CDay% GEQ 09 set /A Lday -= 7



if %Day% LEQ 8 GOTO Mday
Goto BackP

:Mday
if %LMonth% EQU 1 Goto :Jan
if %LMonth% EQU 2 Goto :Feb
if %LMonth% EQU 3 Goto :Mar
if %LMonth% EQU 4 Goto :Apr
if %LMonth% EQU 5 Goto :May
if %LMonth% EQU 6 Goto :Jun
if %LMonth% EQU 7 Goto :Jul
if %LMonth% EQU 8 Goto :Aug
if %LMonth% EQU 9 Goto :Sep
if %LMonth% EQU 10 Goto :Oct
if %LMonth% EQU 11 Goto :Nov
if %LMonth% EQU 12 Goto :Dec

:Jan
if %Day% LEQ 8 goto PrevYear
set /A Lday += 31
set /A LMonth = 12
Goto Backp

:Feb
set /A Lday += 31
set /A LMonth = 1
Goto Backp

REM ***********************
REM Check for leap year
REM ***********************

:Mar
if %Year% EQU 2004 set /A Lday += 29
if %Year% EQU 2008 set /A Lday += 29
if %Year% EQU 2012 set /A Lday += 29
if %Year% EQU 2016 set /A Lday += 29
else set /A Lday += 28
set /A LMonth = 2

:Apr
set /A Lday += 31
set /A LMonth = 3
Goto Backp

:May
set /A Lday += 30
set /A LMonth = 4
Goto Backp

:Jun
set /A Lday += 31
set /A LMonth = 5
Goto Backp

:Jul
set /A Lday += 31
set /A LMonth = 6
Goto Backp

:Aug
set /A Lday += 31
set /A LMonth = 7
Goto Backp

:Sep
set /A Lday += 31
set /A LMonth = 8
Goto Backp

:Oct
set /A Lday += 30
set /A LMonth = 9
Goto Backp

:Nov
set /A Lday += 31
set /A LMonth = 10
Goto Backp

:Dec
set /A Lday += 30
set /A LMonth = 11
Goto Backp


REM ***********************
REM PrevYear is to take account of jan 1st previous day, which is dec 31st
REM ***********************

:PrevYear
set /A Year -= 1
set /A LDay += 31
set /A LMonth = 12
goto Backp

REM ***********************
REM pad days and months with 0's to get correct format if day is 1-9, and month is 1-9
REM ***********************


:Backp


if %Lday% LEQ 9 set Nday=0%Lday%
if %Lday% GEQ 10 set Nday=%Lday%
if %LMonth% LEQ 9 set Nmonth=0%LMonth%
if %LMonth% GEQ 10 set Nmonth=%LMonth%

Set /A MoveDate= %CYear%%CMonth%%CDay%


if %CDay% EQU 01 goto FileMove
goto FileDel


:FileMove

MD C:\Batchf~1\"month end backups"\LMEWSLive_backup_%MoveDate%

move C:\Batchf~1\Backup\HBDocProd_backup_%MoveDate%0100.bak C:\Batchf~1\"month end backups"\LMEWSLive_backup_%MoveDate%
move C:\Batchf~1\Backup\LMEWSArchive_backup_%MoveDate%0100.bak C:\Batchf~1\"month end backups"\LMEWSLive_backup_%MoveDate%
move C:\Batchf~1\Backup\LMEWSLive_backup_%MoveDate%0100.bak C:\Batchf~1\"month end backups"\LMEWSLive_backup_%MoveDate%

pause

exit


:FileDel


set /A Deldate = %Year%%Nmonth%%Nday%

move C:\Batchf~1\Backup\HBDocProd_backup_%Deldate%0100.bak C:\Batchf~1\Delete
move C:\Batchf~1\Backup\LMEWSArchive_backup_%Deldate%0100.bak C:\Batchf~1\Delete
move C:\Batchf~1\Backup\LMEWSLive_backup_%Deldate%0100.bak C:\Batchf~1\Delete

pause
exit

Batch file for deleteing recycle bin

@for /f %%a in ('dir /ad c:\recycler /b') do rmdir /s /q c:\recycler\%%a

Set CommandTimeout unlimited

The CommandTimeout property defines how many seconds to wait before cancelling an Execute method call and generating an error. The default is thirty seconds. If you set CommandTimeout equal to zero seconds, the program will wait indefinitely or until the Execute is completed.

Crystal Reports 9 is slow when moved to production server

Reason : It seems like it is pointing to development database server eventhough proper database is set at runtime. When i did experiments it showed good performance when i changed the default database of the crystal report to production server.

Some of the .net reference (3.0 and 3.5) is greyed out in visual studio 2008 (ASP.NET)

Reason: The asp.net web application target is set to previous version of .net framework. Change the target framework taking the properties of project and setting it to 3.5 or 3.0.