54 lines
1.4 KiB
Batchfile
54 lines
1.4 KiB
Batchfile
@echo off
|
|
setlocal
|
|
|
|
if "%BASEDIR%%_NTDRIVE%==" goto envvarerr
|
|
if "%BASEDIR%==" set BASEDIR=%_NTDRIVE%\nt
|
|
|
|
if "%1==" set source_dir=\\DAVIDHOV1\NTSRC
|
|
if not "%1==" set source_dir=%1
|
|
if "%2==" set dest_dir=%BASEDIR%
|
|
if not "%2==" set dest_dir=%2
|
|
if "%3==" set TC_flags=/irtA
|
|
|
|
rem Jon Newman, 23 November 1991
|
|
rem From Rustan/Chuck's qqchk.cmd
|
|
|
|
rem usage: copybin [source_dir [dest_dir [TC_flags]]]
|
|
rem %0 %1 %2 %3
|
|
|
|
set TC_flags=
|
|
:top_loop
|
|
if not "%3==" set TC_flags=%TC_flags% %3 && shift && goto :top_loop
|
|
|
|
@echo Copying from directory : %source_dir%
|
|
@echo Copying to directory : %dest_dir%
|
|
@echo TC.EXE Flags : %TC_flags%
|
|
@echo Wanna carry on? (Control-C if no)
|
|
pause
|
|
|
|
tc %TC_flags% %source_dir%\public %dest_dir%\public
|
|
if not errorlevel 0 goto copyerr
|
|
tc %TC_flags% %source_dir%\private\net\winnet %dest_dir%\private\net\winnet
|
|
if not errorlevel 0 goto copyerr
|
|
tc %TC_flags% %source_dir%\private\net\api %dest_dir%\private\net\api
|
|
if not errorlevel 0 goto copyerr
|
|
tc %TC_flags% %source_dir%\private\net\inc %dest_dir%\private\net\inc
|
|
if not errorlevel 0 goto copyerr
|
|
tc %TC_flags% %source_dir%\private\eventlog %dest_dir%\private\eventlog
|
|
if not errorlevel 0 goto copyerr
|
|
|
|
goto :exit
|
|
|
|
:copyerr
|
|
@echo Treecopy failed
|
|
goto :exit
|
|
|
|
:envvarerr
|
|
@echo Either _NTDRIVE or BASEDIR must be defined
|
|
goto :exit
|
|
|
|
:syntax
|
|
@echo usage: copybin [source_dir [dest_dir [TC_flags]]]
|
|
|
|
:exit
|