备份文件时，添加时间戳

 

备份文件时，添加时间戳

 

BackFileTool.bat

=====================

@echo off

 

set BACK_FROM=%1

set BACK_TO=%2

 

move %BACK_FROM% %BACK_TO%.BAK[%date:~0,4%%date:~5,2%%date:~8,2%.%time:~0,2%%time:~3,2%%time:~6,2%].xlsx

=====================

 

 

VBA代码

 

Public Sub backupOupputFile()
    
On Error GoTo errl
    
    '■バッチ対象
    Dim BAT_BACKUP_TOOL As String: BAT_BACKUP_TOOL = BAT_FILE_URL & "\" & BAT_BACKUP_TOOL_FILE_NAME
    
    
    If BAK_FILE_EXIST_FLG = "1" Then
    
        Dim BACK_FROM As String: BACK_FROM = BACK_FROM & BACK_FILE_NAME
        Dim BACK_TO As String: BACK_TO_TMS = BACK_TO & BACK_FILE_NAME
        
        'bat命令
        Dim cmdStr
        cmdStr = """" & BAT_BACKUP_TOOL & """" & " " & """" _
                    & BACK_FROM & """" & " " & """" & BACK_TO & """"
        'MsgBox cmdStr
    
        'バッチを実行する
        RetVal = Shell(cmdStr)
        
        processId2 = OpenProcess(&H100000, False, RetVal)
        r2 = WaitForSingleObject(processId2, -1&)
        r2 = CloseHandle(processId2)

    End If
    
GoTo endok

errl:
    '異常処理
    ERROR_FLG = "1"
     
    ERROR_INFO_LIST.Add ("関数：「backupOupputFile」で、エラー発生しました。")
    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)
        
endok:

End Sub

http://blog.csdn.net/sxzlc/article/details/73752002