VBA处理文件框架代码 【第三部分：具体处理】

本程序共分７个部分

【框架代码】  １．处理流程

【框架代码】  ２．变量定义

【框架代码】  ３．具体处理

【框架代码】  ４．bat定义

【框架代码】  ５．Excel文件操作

　　　　　　　　　　└ ５．１．具体业务流程（读取，写入文件）

    　　　　　　　　　　 └ ５．１．１．具体业务处理代码

６．目录结构，框架功能介绍

７．程序页面布局

本章为具体处理

'* * * * * * * * * * * * * * * * * * * ** * * * * * **'*                                     　　　　　　　*'* Error　情報を統計ツールへ出力する　　　　　　　   *'* 作成日：2016/12/23                                *'* 作成者：sun      　　　　　　　　　               *'* 更新日：  　　　　　　　　　　　　　              *'* 更新者：　　　　　　　　　　　　　                *'*                                                   *'* * * * * * * * * * * * * * * * * * * ** * * * * * **Public Sub setErrorInfoToExcel()    On Error GoTo errl    'ツールファイル指定    Windows(TOOL_FILE_NAME).Activate    Sheets(TOOL_FILE_SHEET_NAME).Select    Dim errorInfo As String    Dim i        'Error情報出力    For i = 1 To ERROR_INFO_LIST.Count        errorInfo = ERROR_INFO_LIST.Item(i)        ActiveSheet.Cells(i + 1, 9) = errorInfo           Next      '初期化、エラーリスト中の値をクリアする   Set ERROR_INFO_LIST = New Collection      GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「setErrorInfoToExcel」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * * * ** * * * * * **'*                                     　　　　　　　*'* クリア入力情報チェック（Info）                 　 *'* 作成日：2016/12/23                                *'* 作成者：sun      　　　　　　　　　               *'* 更新日：  　　　　　　　　　　　　　              *'* 更新者：　　　　　　　　　　　　　                *'*                                                   *'* * * * * * * * * * * * * * * * * * * ** * * * * * **Public Sub clearMessageInfo()On Error GoTo errl    Range("I2:O19").ClearContents        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「clearMessageInfo」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * * * ** * * * * * **'*                                     　　　　　　　*'* 入力情報チェック                 　　　　　　　   *'* 作成日：2016/12/23                                *'* 作成者：sun      　　　　　　　　　               *'* 更新日：  　　　　　　　　　　　　　              *'* 更新者：　　　　　　　　　　　　　                *'*                                                   *'* * * * * * * * * * * * * * * * * * * ** * * * * * **Public Sub inputCheck()On Error GoTo errl        Dim errorMesg        If TEMPLATE_FILE_PATH = "" Then        errorMesg = "Template：「FILE PATH PATH」のPATHを入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If TEMPLATE_FILE_NAME = "" Then        errorMesg = "Template：「FILE PATH NAME」を入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If    If IN_FILE_PATH = "" Then        errorMesg = "Input FingerprintRecord：「FILE PATH」を入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If IN_FILE1_NAME = "" Then        errorMesg = "Input FingerprintRecord：「FILE NAME」を入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If IN_FILE2_NAME = "" Then        errorMesg = "Input QARecord：「FILE NAME」を入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If OUT_FILE_PATH = "" Then        errorMesg = "OUT_FILE_PATHを入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If                '入力した　folder 存在チェック-----start    If Dir(TEMPLATE_FILE_PATH, 16) = Empty Then        errorMesg = "「TEMPLATE_FILE_PATH」が存在しない、ご確認ください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If Dir(IN_FILE_PATH, 16) = Empty Then        errorMesg = "「IN_FILE_PATH」が存在しない、ご確認ください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If        If Dir(OUT_FILE_PATH, 16) = Empty Then        errorMesg = "「OUT_FILE_PATH」が存在しない、ご確認ください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If    '入力した　folder 存在チェック-----end        If YEAR_AND_MONTH = "" Then        errorMesg = "「Year&Month」を入力してください。"        ERROR_INFO_LIST.Add (errorMesg)        ERROR_FLG = "1"    End If            GoTo endokerrl:    '異常処理    'ERROR_FLG = "1"         'ERROR_INFO_LIST.Add ("関数：「inputCheck」で、エラー発生しましたsss。")    'ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* Out対象ファイル作成（Tempフォルダー削除）　　          　   *'* 作成日：2016/12/22                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub deleteTempFolder()On Error GoTo errl            '■バッチ対象    Dim BAT_CREATE_TEMP_TOOL As String: BAT_CREATE_TEMP_TOOL = _                BAT_FILE_URL & "\" & BAT_FROM_DELETE_TEMP_TOOL_FILE_NAME            'bat命令    Dim cmdStr    cmdStr = """" & BAT_CREATE_TEMP_TOOL & """" & " " & """" & OUT_FILE_PATH & """"    'MsgBox cmdStr    'バッチを実行する    RetVal = Shell(cmdStr)        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        '下記内容削除できません（削除したファイルが[refresh]できるのために、下記内容を追加する。）    Dim fileName As String    fileName = Dir(OUT_FILE_PATH & "\" & "*.xls*")    fileName = ""        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「deleteTempFolder」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* Template下の取込対象（Template）ファイル数取得(Count)　　　    *'* 作成日：2016/12/27                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub getTemplateFileCount(strSearchKey As String)On Error GoTo errl    '■バッチ対象    Dim BAT_GET_REQUEST_LIST_FILE_TOOL As String: BAT_GET_REQUEST_LIST_FILE_TOOL = _                BAT_FILE_URL & "\" & BAT_FIND_REQUEST_LIST_TOOL_FILE_NAME        'bat命令    Dim cmdStr    cmdStr = """" & BAT_GET_REQUEST_LIST_FILE_TOOL & """" _                    & " " & """" & TEMPLATE_FILE_PATH & """" _                    & " " & """" & strSearchKey & """"            'バッチを実行する    RetVal = Shell(cmdStr)    'バッチを実行する(返却値を取得できます)    Set WshShell = CreateObject("WScript.Shell")    Set oExec = WshShell.Exec(cmdStr)    Set oStdOut = oExec.StdOut        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)            'バッチ返却値のループ開始    Do Until oStdOut.AtEndOfStream        'ほうしいの返却値を取得する。        'パス含むのstr開始のIndex        Dim startIndex As Integer        'パス含むのstr終了のIndex        Dim endIndex As Integer        'Request Listファイルの名前        Dim lastTimeFileName As String        '一行一行取得する        batReturnStr = oStdOut.ReadLine                '行の中に含むの文字列を抽出する。        'startIndex = InStr(batReturnStr, "Request List_") '第一番の"Request Listの位置"        startIndex = InStr(batReturnStr, strSearchKey)        'startIndex = InStrRev(batReturnStr, "Request List_")  '最後の"Request Listの位置"        endIndex = InStrRev(batReturnStr, strSearchKey)  '最後の"Request Listの位置"        'endIndex = InStr(batReturnStr, ".xlsx")                'MsgBox (batReturnStr & ":" & regTargetFileName(batReturnStr))                    If startIndex <> 0 And endIndex <> 0 Then                'lastTimeFileName = Mid(batReturnStr, startIndex, endIndex + 4)                'Request Listァイル存在を標記する                IN_FILE_EXIST_FLG = "1"                'ループ終了                Exit Do                            End If    Loop'ループ終了GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「getRequestListFileCount」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* In下の取込対象（RequestList）ファイル数取得(Count)　　　    *'* 作成日：2016/12/27                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub getRequestListFileCount(strSearchKey As String)On Error GoTo errl    '■バッチ対象    Dim BAT_GET_REQUEST_LIST_FILE_TOOL As String: BAT_GET_REQUEST_LIST_FILE_TOOL = _                BAT_FILE_URL & "\" & BAT_FIND_REQUEST_LIST_TOOL_FILE_NAME        'bat命令    Dim cmdStr    cmdStr = """" & BAT_GET_REQUEST_LIST_FILE_TOOL & """" _                    & " " & """" & IN_FILE_PATH & """" _                    & " " & """" & strSearchKey & "_*" & """"            'バッチを実行する    RetVal = Shell(cmdStr)    'バッチを実行する(返却値を取得できます)    Set WshShell = CreateObject("WScript.Shell")    Set oExec = WshShell.Exec(cmdStr)    Set oStdOut = oExec.StdOut        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)            'バッチ返却値のループ開始    Do Until oStdOut.AtEndOfStream        'ほうしいの返却値を取得する。        'パス含むのstr開始のIndex        Dim startIndex As Integer        'パス含むのstr終了のIndex        Dim endIndex As Integer        'Request Listファイルの名前        Dim lastTimeFileName As String        '一行一行取得する        batReturnStr = oStdOut.ReadLine                '行の中に含むの文字列を抽出する。        'startIndex = InStr(batReturnStr, "Request List_") '第一番の"Request Listの位置"        startIndex = InStr(batReturnStr, strSearchKey)        'startIndex = InStrRev(batReturnStr, "Request List_")  '最後の"Request Listの位置"        endIndex = InStrRev(batReturnStr, strSearchKey)  '最後の"Request Listの位置"        'endIndex = InStr(batReturnStr, ".xlsx")                'MsgBox (batReturnStr & ":" & regTargetFileName(batReturnStr))                    If startIndex <> 0 And endIndex <> 0 Then                'lastTimeFileName = Mid(batReturnStr, startIndex, endIndex + 4)                'Request Listァイル存在を標記する                IN_FILE_EXIST_FLG = "1"                'ループ終了                Exit Do                            End If    Loop'ループ終了GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「getRequestListFileCount」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *'*                                    　　　　　　　　　　　　                   *'* In下の取込対象（RequestList）ファイル、不正の場合、メッセージ設定　　　       *'* 作成日：2016/12/27                  　　　　　　　　　　　　                  *'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　                  *'* 更新日：                            　　　　　　　　　　　　                  *'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　                  *'*                                     　　　　　　　　　　　　                  *'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * * **Public Sub setRequestListErrorMessage(strSearchKey As String)On Error GoTo errl    ERROR_FLG = "1"    Dim errorMesg As String          If IN_FILE_EXIST_FLG = "0" Then        errorMesg = strSearchKey & "存在しないのため、処理異常終了する。"        ERROR_INFO_LIST.Add (errorMesg)            End If    GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「setRequestListErrorMessage」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:        End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* 実施前に、Out下から、bak対象ファイル取得して、bakへ移動する *'* 作成日：2016/12/21                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                                             *'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub getBeforeExecuteOutFileName()On Error GoTo errl        '■バッチ対象    Dim BAT_GET_LAST_TIME_FILE_TOOL As String: BAT_GET_LAST_TIME_FILE_TOOL = _                BAT_FILE_URL & "\" & BAT_FIND_LAST_TIME_TOOL_FILE_NAME        'bat命令    Dim cmdStr    cmdStr = """" & BAT_GET_LAST_TIME_FILE_TOOL & """" _                    & " " & """" & OUT_FILE_PATH & """" & " " & "*" & "Result" & "*"        'バッチを実行する    RetVal = Shell(cmdStr)    'バッチを実行する(返却値を取得できます)    Set WshShell = CreateObject("WScript.Shell")    Set oExec = WshShell.Exec(cmdStr)    Set oStdOut = oExec.StdOut        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        'バッチ返却値のループ開始    Do Until oStdOut.AtEndOfStream        'ほうしいの返却値を取得する。        'パス含むのstr開始のIndex        Dim startIndex As Integer        'パス含むのstr終了のIndex        Dim endIndex As Integer        '前回更新ファイルの名前        Dim lastTimeFileName As String        '一行一行取得する        batReturnStr = oStdOut.ReadLine                '行の中に含むの文字列を抽出する。        startIndex = InStr(batReturnStr, "Result")        endIndex = InStr(batReturnStr, ".xlsx")            If startIndex <> 0 And endIndex <> 0 Then                'MsgBox batReturnStr                beforeExecuteOutFileName = Mid(batReturnStr, startIndex, endIndex + 4)                BACK_FILE_NAME = beforeExecuteOutFileName                BAK_FILE_EXIST_FLG = "1"                                'ループ終了                Exit Do                            End If                Loop'ループ終了GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「findBeforeExecuteOutFile」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* Out対象ファイル作成（Tempフォルダー作成）　　          　   *'* 作成日：2016/12/22                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub createTempFolder()On Error GoTo errl             '■バッチ対象    Dim BAT_CREATE_TEMP_TOOL As String: BAT_CREATE_TEMP_TOOL = _                BAT_FILE_URL & "\" & BAT_CREATE_TEMP_TOOL_FILE_NAME            'bat命令    Dim cmdStr    cmdStr = """" & BAT_CREATE_TEMP_TOOL & """" & " " & """" & OUT_FILE_PATH & """"    'MsgBox cmdStr    'バッチを実行する    RetVal = Shell(cmdStr)        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        TEMP_FOLDER_EIXST_FLG = "1"        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「createTempFolder」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* Out対象ファイル作成（Templateファイルによって作成）　　　   *'* 作成日：2016/12/19                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：2016/12/21                  　　　　　　　　　　　　*'* 更新者：sun      　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub createOupputFileFromTemplate()On Error GoTo errl            '■バッチ対象    Dim BAT_COPY_TOOL As String: BAT_COPY_TOOL = BAT_FILE_URL & "\" & BAT_COPY_TOOL_FILE_NAME            Dim FROM_TEMPLATE As String: FROM_TEMPLATE = TEMPLATE_FILE_PATH & "\" & TEMPLATE_FILE_NAME        'bat命令    Dim cmdStr    cmdStr = """" & BAT_COPY_TOOL & """" & " " & """" & FROM_TEMPLATE & """" & " " & """" & OUT_OBJECT & """"    'MsgBox cmdStr    'バッチを実行する    RetVal = Shell(cmdStr)        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「createOupputFileFromTemplate」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:    End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* 前回のBakフォルダー作成(初回の場合、bakフォルダーがない)　  *'* 作成日：2016/12/26                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub createBakFolder()On Error GoTo errl             '■バッチ対象    Dim BAT_CREATE_BAK_TOOL As String: BAT_CREATE_BAK_TOOL = _                BAT_FILE_URL & "\" & BAT_CREATE_BAK_FOLDER_TOOL_FILE_NAME            'bat命令    Dim cmdStr    cmdStr = """" & BAT_CREATE_BAK_TOOL & """" & " " & """" & OUT_FILE_PATH & """"    'MsgBox cmdStr    'バッチを実行する    RetVal = Shell(cmdStr)        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「createBakFolder」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* 前回Out対象ファイルbak　　　                                *'* 作成日：2016/12/21                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *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                'bat命令        Dim cmdStr        cmdStr = """" & BAT_BACKUP_TOOL & """" & " " & """" _                    & BACK_FROM & BACK_FILE_NAME & """" & " " & """" & BACK_TO & BACK_FILE_NAME & """"        'MsgBox cmdStr            'バッチを実行する        RetVal = Shell(cmdStr)                processId = OpenProcess(&H100000, False, RetVal)        R = WaitForSingleObject(processId, -1&)        R = CloseHandle(processId)            End If    GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「backupOupputFile」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* Out対象ファイル作成（Temp ⇒ Out）　　　　 　          　   *'* 作成日：2016/12/22                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub moveFileFormTemptoOut()On Error GoTo errl            'ファイルが作成した場合        If CREATE_FILE_SUCCESS_FLG = "1" Then                    '■バッチ対象            Dim BAT_TEMP_TO_OUT_TOOL As String: BAT_TEMP_TO_OUT_TOOL = BAT_FILE_URL & "\" & BAT_FROM_TEMP_TO_OUT_TOOL_FILE_NAME                        'bat命令            Dim cmdStr            cmdStr = """" & BAT_TEMP_TO_OUT_TOOL & """" & " " & """" & TEMP_FROM & """" & " " & """" & TEMP_TO & "\" & """"            'MsgBox cmdStr                    'バッチを実行する            RetVal = Shell(cmdStr)                        processId = OpenProcess(&H100000, False, RetVal)            R = WaitForSingleObject(processId, -1&)            R = CloseHandle(processId)        End If                        TEMP_FOLDER_EIXST_FLG = "0"    GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「moveFileFormTemptoOut」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:    End Sub'* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * ** *'*                                    　　　　　　　　　　　　 *'* 前回のBakファイル削除　　　　　　　　　　　　          　   *'* 作成日：2016/12/26                  　　　　　　　　　　　　*'* 作成者：sun      　　　　　　　　　 　　　　　　　　　　　　*'* 更新日：                            　　　　　　　　　　　　*'* 更新者：         　　　　　　　　　 　　　　　　　　　　　　*'*                                     　　　　　　　　　　　　*'* * * * * * * * * * * * * * * * * * * ** * * * * * * * * ** * *Public Sub deleteBakFile()On Error GoTo errl             '■バッチ対象    Dim BAT_DELETE_BAK_FILE_TOOL As String: BAT_DELETE_BAK_FILE_TOOL = _                BAT_FILE_URL & "\" & BAT_DELETE_BAK_FILE_TOOL_FILE_NAME            'bat命令    Dim cmdStr    cmdStr = """" & BAT_DELETE_BAK_FILE_TOOL & """" & " " & """" & OUT_FILE_PATH & """"    'MsgBox cmdStr    'バッチを実行する    RetVal = Shell(cmdStr)        processId = OpenProcess(&H100000, False, RetVal)    R = WaitForSingleObject(processId, -1&)    R = CloseHandle(processId)        GoTo endokerrl:    '異常処理    ERROR_FLG = "1"         ERROR_INFO_LIST.Add ("関数：「deleteBakFile」で、エラー発生しました。")    ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)        endok:End Sub