VSS自動バックアップの方法

@ECHO OFF
SET ARC=C:/Program Files/Microsoft Visual SourceSafe/ssarc.exe
SET U=user
SET P=pwd
SET DATE=%DATE%
SET FDATE=%DATE:/=%
SET SRC=D:/Shared/APPVSS/
SET DFILE=D:/VSS_Backup_%FDATE%.ssa
SET LFILE=D:/VSS_Backup.log

ECHO -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+- >>%LFILE%
ECHO %DATE% %TIME% >>%LFILE%
ECHO バックアップ処理を開始します。>>%LFILE%
"%ARC%" -s%SRC% -i- -y%U%,%P% %DFILE% $/ >> %LFILE% 2>&1
IF ERRORLEVEL 1 (
  ECHO バックアップに失敗しました。>>%LFILE%
)
GOTO END
:END
ECHO　バックアップ処理を終了します。>>%LFILE%

COPY D:/Shared/VSS_Backup/Backup/VSS_Backup_%FDATE%.ssa //172.18.1.1/Shared/VSS_Backup/

ECHO %DATE% %TIME% >>%LFILE%
ECHO %DATE% %TIME%
ECHO -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+- >>%LFILE%

rem pause