【CreateBackup】Ver 01.04 リリース

CreateBackup v01.04 をリリースしました。
2018/07/25　Vector 公開依頼済
2018/07/27　Vector 公開済

（１）ZIPファイルを生成する時に排他制御チェックを追加しました。

【事象】
　ZIPファイルの作成が完了する前に、プログラムが終了する場合があります。
例えば、バックアップ対象となるファイルまたはフォルダの容量が大きいとき、
この事象を確認することができます。

【原因】
　ZIPファイルの作成が完了したことを確認していないため。

【対策】
　ZIPファイルの作成が完了したことを確認する。
　確認した後に、後続のプログラムを実行する。

　具体的には、ZIPファイルを生成するコードを実行した後、
ZIPファイルをOPENするまで待つようにしました。

CreateBackup.vbs

    ''===========================================================
    ''  name        : CreateZip
    ''  description : ZIPファイルを作成する
    ''  param       : copyFromPath  in      コピー元フォルダの絶対パス
    ''              : copyToPath    in      コピー先ファイルの絶対パス
    ''  return      : True:正常終了    False:異常終了
    ''===========================================================
    Private Function CreateZip(copyFromPath, copyToPath)
        
        CreateZip = False
        
        If m_iniFileInfo.CreateZip = False Then
            Exit Function
        End If
        
        Dim FS :Set FS = CreateObject("Scripting.FileSystemObject")
        Dim SA :Set SA = CreateObject("Shell.Application")
        
        '空のzipファイルを作成して、識別子を書き込む
        With FS.CreateTextFile(copyToPath)
            .Write "PK" & Chr(5) & Chr(6) & String(18,0)
            .Close
        End With
        
        'zipファイルへの書き込み
        With SA.NameSpace(copyToPath)
            .CopyHere copyFromPath
        End With
        
'v01.04 新規追加
        '排他制御チェック
        Do Until isFileLock(copyToPath) :Loop
        
        WScript.sleep 1000
        
        Set FS = Nothing
        Set SA = Nothing
        
        CreateZip = True
        
    End Function

（２）バックアップ完了時のメッセージを修正しました。

修正理由
　英語の文法が正しくない。

ケース１：メッセージ画面

　　修正後：Backup completed
　　修正前：Backup is complete

ケース２：ログファイル

　成功時
　　修正後：Backup is success
　　修正前：Backup Success

　失敗時
　　修正後：Backup is fault
　　修正前：Backup Fault



以上