set ProjectName=Project1 ::LibPath Set LibPath="C:\Program files\Borland\Delphi7\Lib; " ::Begin Code for /F "tokens=2-4 delims=/- " %%A in ('date/T') do set strdate=%%C%%A%%B mkdir %ArchivePath%\%strdate%\ABC0DEF cd %ArchivePath%\%strdate% %VSSPath% get %SSProject% -Y%Username%,%Password% -R -I- %DelphiPath% -u%LibPath% -nc:\Project\build\dcu %ArchivePath%\%strdate%\%ProjectName% ::archive ::move to release location ::Label the files %VSSPath% label %SSProject% -L%strdate% -Y%Username%,%Password% -I- ::send emails to all to report |