vss , vb.net自动编译

最新推荐文章于 2020-10-18 15:48:59 发布

水草会武

最新推荐文章于 2020-10-18 15:48:59 发布

阅读量606

点赞数

分类专栏： Vb.net 文章标签： vss vb.net build path application .net

本文链接：https://blog.csdn.net/shuicaohui5/article/details/5802166

版权

Vb.net 专栏收录该内容

92 篇文章 4 订阅

订阅专栏

@echo off
echo /
echo all start
echo /

rem ----------------------------
rem Local Folder Name
rem ----------------------------
@set local_filename=vss_Duplo
rem ----------------------------
rem Vss_username
rem ----------------------------
@set vss_username=fanh

rem ----------------------------
rem         Vss_password
rem ----------------------------
@set vss_password=fanh
rem ----------------------------
rem         Local Folder path
rem ----------------------------
@set local_filepath=D:/
rem ----------------------------
rem          Application Name
rem ----------------------------
@set local_app_name=DUPLO.sln
rem ----------------------------
rem         Vss_project_path
rem ----------------------------
@set vss_project_path=$/code/duplo
rem ----------------------------
rem         Vss_dir
rem ----------------------------
@set vss_dir=//192.168.0.218/vss
rem ----------------------------
rem         Vss_install_path
rem ----------------------------
@set vss_install_path=C:/Program Files/Microsoft Visual SourceSafe
rem ----------------------------
rem         .net_install_path
rem ----------------------------
@set net_install_path=C:/Program Files/Microsoft Visual Studio 9.0/Common7/IDE;D:/duPLO_EXE;
rem ----------------------------
rem         Local Folder Name
rem ----------------------------
@set local_logfile_name=build.log
rem ----------------------------
rem ----------------------------
rem         vss_flag(1:on, 0:off)
rem ----------------------------
@set vss_flag=1
rem ----------------------------
rem         build_flag(1:on, 0:off)
rem ----------------------------
@set build_flag=1

@if %vss_flag% EQU 1 goto do_vss
@if %build_flag% EQU 1 goto do_build
@goto end

@:do_vss
rem ----------------------------
rem do vss
rem ----------------------------

@if not exist %local_filename% (md %local_filepath%%local_filename%)

echo /
echo get files from vss
echo /
@set path=%path%;%vss_install_path%
@set ssdir=%vss_dir%
@set ssuser=%Vss_username%
@set sspwd=%Vss_password%
@ss workfold %vss_project_path% %local_filepath%%local_filename%
@ss get -GL%local_filepath%%local_filename% %vss_project_path% -R -W -I-

@if %build_flag% EQU 1 goto do_build
@goto end

@:do_build
rem ----------------------------
rem do build
rem ----------------------------
echo /
echo build starting
echo /
@set path=%path%;%net_install_path%
@if exist %local_filepath%%local_logfile_name% (del %local_filepath%%local_logfile_name%)
@devenv /build release %local_filepath%%local_filename%/%local_app_name% >>%local_filepath%%local_logfile_name%
@if errorlevel 1 goto error
@goto success
@:error
echo;
echo /
echo build failure
echo /
@goto end
@:success
echo;
echo /
echo build success
echo /
@:end
pause