备份文件时，添加时间戳

来源：互联网发布：伊利的网站域名有几个编辑：程序博客网时间：2024/05/21 10:14

备份文件时，添加时间戳

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 endokerrl:    '異常処理    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

阅读全文

0 0