<% = AppTitle %>

<% End IF %>

【データバックアップ】

<% Set fso = CreateObject("Scripting.FileSystemObject") BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath If bExistBackUpPath = 0 Then %>

システム情報に設定されたバックアップフォルダ
<% = FilePath %> がサーバー上に存在しません。
サーバー内にフォルダを作成するか、
もしくは「システム情報」にてフォルダ設定を変更してください。

<% Else %> <% If Target = "" Then %>

対象演習	<% If GB_Admin = 2 Then %> <% = EnshuMeisyo %> <% Else %> checked<% End If %> OnClick='EnshuKubun_Check(0)'> 全演習 "" Or SelectTarget <> "" Then %> checked<% End If %> OnClick='EnshuKubun_Check(1)'> 指定演習 <% End If %>

<% Else %>

対象演習

<% Dim EnshuName If Target = "all" Then EnshuName = "全演習" Else EnshuName = ConvEnshuMeisyo(Target) End If Response.Write(EnshuName) %>

バックアップ履歴

<% Dim BackUpPath, EnshuFolder, FilePath BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath & "\" & EnshuFolder Dim fso, f, f1, s, sf Set fso = CreateObject("Scripting.FileSystemObject") If Not(fso.FolderExists(FilePath)) Then fso.CreateFolder(FilePath) End If Set f = fso.GetFolder(FilePath) Set sf = f.SubFolders Dim tmp1, tmp2 For Each f1 in sf tmp1 = tmp1 & f1.name & "-" Next tmp2 = split(tmp1, "-") For ii = UBound(tmp2) - 1 To 0 Step -1 If Not(fso.FileExists(BackUpPath & "\" & EnshuFolder & "\" & tmp2(ii) & "\DELETE.txt")) Then DataCnt = DataCnt + 1 Response.Write("" & vbCrLf) End If Next %>

") Response.Write(" ") Response.Write(SetTimeYYMMDDHHMM2Rev(tmp2(ii))) Response.Write("

<% End If %>

指定された演習データのバックアップを行います。

該当演習中のユーザーがいないことを確認の上で処理を実行して下さい。