::Daily Build Script

　　::viery 2004/07/20

　　::Your project's path in VSS

　　set SSProject="$/Project1/Source"

　　::Your VSS username and password

　　set Username=Viery

　　set Password=password

　　::Path to VSS command line tool and the VSS DB you want to use.

　　set VSSPath="C:\Develop\Vss\win32\ss.exe"

　　set SSDIR=C:\develop\vss

　　::Path to the directory where you will be keeping the archive

　　set ArchivePath=C:\Project\build

　　::Path to the delphi executable.

　　set DelphiPath="C:\Program files\Borland\Delphi7\Bin\dcc32.exe"

　　::Path to library

　　set Delphi="C:\Program files\Borland\Delphi7"

　　::Delphi Project Name

　　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