备份文件时，添加时间戳

最新推荐文章于 2024-02-23 12:04:04 发布

sun0322

最新推荐文章于 2024-02-23 12:04:04 发布

阅读量2.3k

点赞数

分类专栏： # bat、doc命令

本文链接：https://blog.youkuaiyun.com/sxzlc/article/details/76598944

版权

bat、doc命令专栏收录该内容

80 篇文章

订阅专栏

备份文件时，添加时间戳

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.youkuaiyun.com/sxzlc/article/details/73752002