Option Explicit
 
Const book_folder As String = "C:\Users\owner\Desktop\テスト用"    '終端に\をつけないこと
Const start_folder As String = "C:\Users\owner\Desktop\A\B"        '終端に\をつけないこと
Const Hyper_Link As Boolean = True     'True=ハイパーリンク表示 する False=通常表示
Dim T_count As Long
Dim T_folders() As String
Dim T_endnames() As String
Public Sub 一括移動処理()
    Dim ws As Worksheet
    Dim wrow As Long
    Dim maxrow As Long
    Dim i As Long
    Dim ecode As Long
    Dim fname As String
    Dim keyword As String
    Dim dest_path As String
    Dim exctr As Long: exctr = 0
    Set ws = Worksheets("移動結果")
    ws.Rows("2:" & Rows.Count).ClearContents
    'ハイパーリンクを削除
    ws.Range("C2:C" & Rows.Count).ClearHyperlinks
    ws.Range("E2:E" & Rows.Count).ClearHyperlinks
    'フォントの下線を削除
    ws.Range("C2:C" & Rows.Count).Font.Underline = False
    ws.Range("E2:E" & Rows.Count).Font.Underline = False
    '選択範囲のフォント文字色を標準色に変更
    ws.Range("C2:C" & Rows.Count).Font.ColorIndex = xlAutomatic
    ws.Range("E2:E" & Rows.Count).Font.ColorIndex = xlAutomatic
 
    'ファイル一覧を取得する
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim FSO_folder As Object
    Dim FSO_files As Object
    Dim FSO_file As Object
    'ブックの格納フォルダ情報
    Set FSO_folder = FSO.getfolder(Book_folder)
    'ブックの一覧取得
    Set FSO_files = FSO_folder.files
    wrow = 2
    '取得したブック一覧をシートへ書き込む
    For Each FSO_file In FSO_files
        ws.Cells(wrow, "A").Value = FSO_file.name
        wrow = wrow + 1
    Next
    maxrow = wrow - 1
    'フォルダ一覧を取得する（３階層目のフォルダのみ）
    T_count = 0
    Call get_subfolders(FSO, Start_folder, 1)
    '取得したフォルダ一覧をシートへ書き込む
    For i = 0 To T_count - 1
        If Hyper_Link = True Then
            ws.Hyperlinks.Add anchor:=Range("E" & i + 2), Address:=T_folders(i), TextToDisplay:=T_folders(i)
        Else
            ws.Cells(i + 2, "E").Value = T_folders(i)
        End If
    Next
    'ファイルを移動する
    For wrow = 2 To maxrow
        fname = ws.Cells(wrow, "A").Value
        If CheckFileName(fname, keyword) = True Then
            'ファイル名が異動対象の場合、移動を行う
            ecode = move_book(FSO, fname, keyword, dest_path)
            If dest_path <> "" Then
                If Hyper_Link = True Then
                    ws.Hyperlinks.Add anchor:=Range("C" & wrow), Address:=dest_path, TextToDisplay:=dest_path
                Else
                    ws.Cells(wrow, "C").Value = dest_path
                End If
            End If
            If ecode = 0 Then
                '移動結果が正常の場合
                ws.Cells(wrow, "B").Value = "完了"
                exctr = exctr + 1
            Else
                '移動結果が以上の場合
                ws.Cells(wrow, "B").Value = "ERR" & ecode
            End If
        Else
            'ファイル名が異動対象外の場合
            ws.Cells(wrow, "B").Value = "ERR1"
        End If
    Next
    MsgBox ("移動件数=" & exctr & "件")
End Sub
'ファイル移動
'戻り値　0:正常 2:該当フォルダ無し 3:既に移動先のフォルダ内にファイルが存在する
Private Function move_book(ByRef FSO As Object, ByVal fname As String, ByVal keyword As String, ByRef dest_path As String) As Long
    Dim i As Long
    Dim end_path As String
    Dim dest_file As String
    Dim src_file As String
    move_book = 3
    '全フォルダをチェックする
    For i = 0 To T_count - 1
        '1フォルダを取り出す
        dest_path = T_folders(i)
        '終端のフォルダ名を取得
        end_path = T_endnames(i)
        '終端のフォルダ名とキーワードの両方を大文字に変換後比較する
        If UCase(end_path) = UCase(keyword) Then
            '終端フォルダとキーワードが一致すれば、移動対象となる
            dest_file = dest_path & "\" & fname
            '移動先のフォルダ内に移動しようとするファイルが存在するなら、戻り値=3で終了
            If FSO.fileexists(dest_file) = True Then Exit Function
            'ファイルの移動を行う
            src_file = Book_folder & "\" & fname
            Call FSO.movefile(src_file, dest_file)
            '戻り値=0で終了
            move_book = 0
            Exit Function
        End If
    Next
    '移動対象のフォルダが存在しない場合
    '戻り値=2で終了
    dest_path = ""
    move_book = 2
End Function
'ファイル名チェック
Private Function CheckFileName(ByVal fname As String, ByRef keyword As String) As Boolean
    Dim RE As Object
    Dim REmatch As Object
    CheckFileName = False
    Set RE = CreateObject("VBScript.RegExp")
    RE.Pattern = "^\d{6}(\s+)\d{4}(\s+)(.+?)(\s+)記録用\.xlsx$"
    RE.Global = True
    RE.IgnoreCase = True
    '正規表現によるファイル名のマッチ試験
    Set REmatch = RE.Execute(fname)
    'マッチしないなら終了
    If REmatch.Count < 1 Then Exit Function
    '日付の後の空白、通し番号の後の空白、記録用の前の空白が1桁でないなら終了
    If Len(REmatch(0).submatches(0)) <> 1 Then Exit Function
    If Len(REmatch(0).submatches(1)) <> 1 Then Exit Function
    If Len(REmatch(0).submatches(3)) <> 1 Then Exit Function
    'キーワードを設定
    keyword = REmatch(0).submatches(2)
    CheckFileName = True
End Function
'サブフォルダの取得（再帰）
Sub get_subfolders(ByRef FSO As Object, ByVal s_folder As String, ByVal level As Long)
    Dim folder As Object
    '指定フォルダ内の全フォルダを処理する
    For Each folder In FSO.getfolder(s_folder).subfolders
        ReDim Preserve T_folders(T_count)
        ReDim Preserve T_endnames(T_count)
        T_folders(T_count) = folder.path
        T_endnames(T_count) = folder.name
        T_count = T_count + 1
        '取得したフォルダの下位フォルダを取得する
        Call get_subfolders(FSO, folder.path, level + 1)
    Next
End Sub
 

T3B0aW9uIEV4cGxpY2l0CgpDb25zdCBib29rX2ZvbGRlciBBcyBTdHJpbmcgPSAiQzpcVXNlcnNcb3duZXJcRGVza3RvcFzjg4bjgrnjg4jnlKgiICAgICfntYLnq6/jgatc44KS44Gk44GR44Gq44GE44GT44GoCkNvbnN0IHN0YXJ0X2ZvbGRlciBBcyBTdHJpbmcgPSAiQzpcVXNlcnNcb3duZXJcRGVza3RvcFxBXEIiICAgICAgICAn57WC56uv44GrXOOCkuOBpOOBkeOBquOBhOOBk+OBqApDb25zdCBIeXBlcl9MaW5rIEFzIEJvb2xlYW4gPSBUcnVlICAgICAnVHJ1ZT3jg4/jgqTjg5Hjg7zjg6rjg7Pjgq/ooajnpLog44GZ44KLIEZhbHNlPemAmuW4uOihqOekugpEaW0gVF9jb3VudCBBcyBMb25nCkRpbSBUX2ZvbGRlcnMoKSBBcyBTdHJpbmcKRGltIFRfZW5kbmFtZXMoKSBBcyBTdHJpbmcKUHVibGljIFN1YiDkuIDmi6znp7vli5Xlh6bnkIYoKQogICAgRGltIHdzIEFzIFdvcmtzaGVldAogICAgRGltIHdyb3cgQXMgTG9uZwogICAgRGltIG1heHJvdyBBcyBMb25nCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gZWNvZGUgQXMgTG9uZwogICAgRGltIGZuYW1lIEFzIFN0cmluZwogICAgRGltIGtleXdvcmQgQXMgU3RyaW5nCiAgICBEaW0gZGVzdF9wYXRoIEFzIFN0cmluZwogICAgRGltIGV4Y3RyIEFzIExvbmc6IGV4Y3RyID0gMAogICAgU2V0IHdzID0gV29ya3NoZWV0cygi56e75YuV57WQ5p6cIikKICAgIHdzLlJvd3MoIjI6IiAmIFJvd3MuQ291bnQpLkNsZWFyQ29udGVudHMKICAgICfjg4/jgqTjg5Hjg7zjg6rjg7Pjgq/jgpLliYrpmaQKICAgIHdzLlJhbmdlKCJDMjpDIiAmIFJvd3MuQ291bnQpLkNsZWFySHlwZXJsaW5rcwogICAgd3MuUmFuZ2UoIkUyOkUiICYgUm93cy5Db3VudCkuQ2xlYXJIeXBlcmxpbmtzCiAgICAn44OV44Kp44Oz44OI44Gu5LiL57ea44KS5YmK6ZmkCiAgICB3cy5SYW5nZSgiQzI6QyIgJiBSb3dzLkNvdW50KS5Gb250LlVuZGVybGluZSA9IEZhbHNlCiAgICB3cy5SYW5nZSgiRTI6RSIgJiBSb3dzLkNvdW50KS5Gb250LlVuZGVybGluZSA9IEZhbHNlCiAgICAn6YG45oqe56+E5Zuy44Gu44OV44Kp44Oz44OI5paH5a2X6Imy44KS5qiZ5rqW6Imy44Gr5aSJ5pu0CiAgICB3cy5SYW5nZSgiQzI6QyIgJiBSb3dzLkNvdW50KS5Gb250LkNvbG9ySW5kZXggPSB4bEF1dG9tYXRpYwogICAgd3MuUmFuZ2UoIkUyOkUiICYgUm93cy5Db3VudCkuRm9udC5Db2xvckluZGV4ID0geGxBdXRvbWF0aWMKICAgIAogICAgJ+ODleOCoeOCpOODq+S4gOimp+OCkuWPluW+l+OBmeOCiwogICAgRGltIEZTTyBBcyBPYmplY3QKICAgIFNldCBGU08gPSBDcmVhdGVPYmplY3QoIlNjcmlwdGluZy5GaWxlU3lzdGVtT2JqZWN0IikKICAgIERpbSBGU09fZm9sZGVyIEFzIE9iamVjdAogICAgRGltIEZTT19maWxlcyBBcyBPYmplY3QKICAgIERpbSBGU09fZmlsZSBBcyBPYmplY3QKICAgICfjg5bjg4Pjgq/jga7moLzntI3jg5Xjgqnjg6vjg4Dmg4XloLEKICAgIFNldCBGU09fZm9sZGVyID0gRlNPLmdldGZvbGRlcihCb29rX2ZvbGRlcikKICAgICfjg5bjg4Pjgq/jga7kuIDopqflj5blvpcKICAgIFNldCBGU09fZmlsZXMgPSBGU09fZm9sZGVyLmZpbGVzCiAgICB3cm93ID0gMgogICAgJ+WPluW+l+OBl+OBn+ODluODg+OCr+S4gOimp+OCkuOCt+ODvOODiOOBuOabuOOBjei+vOOCgAogICAgRm9yIEVhY2ggRlNPX2ZpbGUgSW4gRlNPX2ZpbGVzCiAgICAgICAgd3MuQ2VsbHMod3JvdywgIkEiKS5WYWx1ZSA9IEZTT19maWxlLm5hbWUKICAgICAgICB3cm93ID0gd3JvdyArIDEKICAgIE5leHQKICAgIG1heHJvdyA9IHdyb3cgLSAxCiAgICAn44OV44Kp44Or44OA5LiA6Kan44KS5Y+W5b6X44GZ44KL77yI77yT6ZqO5bGk55uu44Gu44OV44Kp44Or44OA44Gu44G/77yJCiAgICBUX2NvdW50ID0gMAogICAgQ2FsbCBnZXRfc3ViZm9sZGVycyhGU08sIFN0YXJ0X2ZvbGRlciwgMSkKICAgICflj5blvpfjgZfjgZ/jg5Xjgqnjg6vjg4DkuIDopqfjgpLjgrfjg7zjg4jjgbjmm7jjgY3ovrzjgoAKICAgIEZvciBpID0gMCBUbyBUX2NvdW50IC0gMQogICAgICAgIElmIEh5cGVyX0xpbmsgPSBUcnVlIFRoZW4KICAgICAgICAgICAgd3MuSHlwZXJsaW5rcy5BZGQgYW5jaG9yOj1SYW5nZSgiRSIgJiBpICsgMiksIEFkZHJlc3M6PVRfZm9sZGVycyhpKSwgVGV4dFRvRGlzcGxheTo9VF9mb2xkZXJzKGkpCiAgICAgICAgRWxzZQogICAgICAgICAgICB3cy5DZWxscyhpICsgMiwgIkUiKS5WYWx1ZSA9IFRfZm9sZGVycyhpKQogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgJ+ODleOCoeOCpOODq+OCkuenu+WLleOBmeOCiwogICAgRm9yIHdyb3cgPSAyIFRvIG1heHJvdwogICAgICAgIGZuYW1lID0gd3MuQ2VsbHMod3JvdywgIkEiKS5WYWx1ZQogICAgICAgIElmIENoZWNrRmlsZU5hbWUoZm5hbWUsIGtleXdvcmQpID0gVHJ1ZSBUaGVuCiAgICAgICAgICAgICfjg5XjgqHjgqTjg6vlkI3jgYznlbDli5Xlr77osaHjga7loLTlkIjjgIHnp7vli5XjgpLooYzjgYYKICAgICAgICAgICAgZWNvZGUgPSBtb3ZlX2Jvb2soRlNPLCBmbmFtZSwga2V5d29yZCwgZGVzdF9wYXRoKQogICAgICAgICAgICBJZiBkZXN0X3BhdGggPD4gIiIgVGhlbgogICAgICAgICAgICAgICAgSWYgSHlwZXJfTGluayA9IFRydWUgVGhlbgogICAgICAgICAgICAgICAgICAgIHdzLkh5cGVybGlua3MuQWRkIGFuY2hvcjo9UmFuZ2UoIkMiICYgd3JvdyksIEFkZHJlc3M6PWRlc3RfcGF0aCwgVGV4dFRvRGlzcGxheTo9ZGVzdF9wYXRoCiAgICAgICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICAgICAgd3MuQ2VsbHMod3JvdywgIkMiKS5WYWx1ZSA9IGRlc3RfcGF0aAogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgICAgICBJZiBlY29kZSA9IDAgVGhlbgogICAgICAgICAgICAgICAgJ+enu+WLlee1kOaenOOBjOato+W4uOOBruWgtOWQiAogICAgICAgICAgICAgICAgd3MuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZSA9ICLlrozkuoYiCiAgICAgICAgICAgICAgICBleGN0ciA9IGV4Y3RyICsgMQogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICAn56e75YuV57WQ5p6c44GM5Lul5LiK44Gu5aC05ZCICiAgICAgICAgICAgICAgICB3cy5DZWxscyh3cm93LCAiQiIpLlZhbHVlID0gIkVSUiIgJiBlY29kZQogICAgICAgICAgICBFbmQgSWYKICAgICAgICBFbHNlCiAgICAgICAgICAgICfjg5XjgqHjgqTjg6vlkI3jgYznlbDli5Xlr77osaHlpJbjga7loLTlkIgKICAgICAgICAgICAgd3MuQ2VsbHMod3JvdywgIkIiKS5WYWx1ZSA9ICJFUlIxIgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgTXNnQm94ICgi56e75YuV5Lu25pWwPSIgJiBleGN0ciAmICLku7YiKQpFbmQgU3ViCifjg5XjgqHjgqTjg6vnp7vli5UKJ+aIu+OCiuWApOOAgDA65q2j5bi4IDI66Kmy5b2T44OV44Kp44Or44OA54Sh44GXIDM65pei44Gr56e75YuV5YWI44Gu44OV44Kp44Or44OA5YaF44Gr44OV44Kh44Kk44Or44GM5a2Y5Zyo44GZ44KLClByaXZhdGUgRnVuY3Rpb24gbW92ZV9ib29rKEJ5UmVmIEZTTyBBcyBPYmplY3QsIEJ5VmFsIGZuYW1lIEFzIFN0cmluZywgQnlWYWwga2V5d29yZCBBcyBTdHJpbmcsIEJ5UmVmIGRlc3RfcGF0aCBBcyBTdHJpbmcpIEFzIExvbmcKICAgIERpbSBpIEFzIExvbmcKICAgIERpbSBlbmRfcGF0aCBBcyBTdHJpbmcKICAgIERpbSBkZXN0X2ZpbGUgQXMgU3RyaW5nCiAgICBEaW0gc3JjX2ZpbGUgQXMgU3RyaW5nCiAgICBtb3ZlX2Jvb2sgPSAzCiAgICAn5YWo44OV44Kp44Or44OA44KS44OB44Kn44OD44Kv44GZ44KLCiAgICBGb3IgaSA9IDAgVG8gVF9jb3VudCAtIDEKICAgICAgICAnMeODleOCqeODq+ODgOOCkuWPluOCiuWHuuOBmQogICAgICAgIGRlc3RfcGF0aCA9IFRfZm9sZGVycyhpKQogICAgICAgICfntYLnq6/jga7jg5Xjgqnjg6vjg4DlkI3jgpLlj5blvpcKICAgICAgICBlbmRfcGF0aCA9IFRfZW5kbmFtZXMoaSkKICAgICAgICAn57WC56uv44Gu44OV44Kp44Or44OA5ZCN44Go44Kt44O844Ov44O844OJ44Gu5Lih5pa544KS5aSn5paH5a2X44Gr5aSJ5o+b5b6M5q+U6LyD44GZ44KLCiAgICAgICAgSWYgVUNhc2UoZW5kX3BhdGgpID0gVUNhc2Uoa2V5d29yZCkgVGhlbgogICAgICAgICAgICAn57WC56uv44OV44Kp44Or44OA44Go44Kt44O844Ov44O844OJ44GM5LiA6Ie044GZ44KM44Gw44CB56e75YuV5a++6LGh44Go44Gq44KLCiAgICAgICAgICAgIGRlc3RfZmlsZSA9IGRlc3RfcGF0aCAmICJcIiAmIGZuYW1lCiAgICAgICAgICAgICfnp7vli5XlhYjjga7jg5Xjgqnjg6vjg4DlhoXjgavnp7vli5XjgZfjgojjgYbjgajjgZnjgovjg5XjgqHjgqTjg6vjgYzlrZjlnKjjgZnjgovjgarjgonjgIHmiLvjgorlgKQ9M+OBp+e1guS6hgogICAgICAgICAgICBJZiBGU08uZmlsZWV4aXN0cyhkZXN0X2ZpbGUpID0gVHJ1ZSBUaGVuIEV4aXQgRnVuY3Rpb24KICAgICAgICAgICAgJ+ODleOCoeOCpOODq+OBruenu+WLleOCkuihjOOBhgogICAgICAgICAgICBzcmNfZmlsZSA9IEJvb2tfZm9sZGVyICYgIlwiICYgZm5hbWUKICAgICAgICAgICAgQ2FsbCBGU08ubW92ZWZpbGUoc3JjX2ZpbGUsIGRlc3RfZmlsZSkKICAgICAgICAgICAgJ+aIu+OCiuWApD0w44Gn57WC5LqGCiAgICAgICAgICAgIG1vdmVfYm9vayA9IDAKICAgICAgICAgICAgRXhpdCBGdW5jdGlvbgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgJ+enu+WLleWvvuixoeOBruODleOCqeODq+ODgOOBjOWtmOWcqOOBl+OBquOBhOWgtOWQiAogICAgJ+aIu+OCiuWApD0y44Gn57WC5LqGCiAgICBkZXN0X3BhdGggPSAiIgogICAgbW92ZV9ib29rID0gMgpFbmQgRnVuY3Rpb24KJ+ODleOCoeOCpOODq+WQjeODgeOCp+ODg+OCrwpQcml2YXRlIEZ1bmN0aW9uIENoZWNrRmlsZU5hbWUoQnlWYWwgZm5hbWUgQXMgU3RyaW5nLCBCeVJlZiBrZXl3b3JkIEFzIFN0cmluZykgQXMgQm9vbGVhbgogICAgRGltIFJFIEFzIE9iamVjdAogICAgRGltIFJFbWF0Y2ggQXMgT2JqZWN0CiAgICBDaGVja0ZpbGVOYW1lID0gRmFsc2UKICAgIFNldCBSRSA9IENyZWF0ZU9iamVjdCgiVkJTY3JpcHQuUmVnRXhwIikKICAgIFJFLlBhdHRlcm4gPSAiXlxkezZ9KFxzKylcZHs0fShccyspKC4rPykoXHMrKeiomOmMsueUqFwueGxzeCQiCiAgICBSRS5HbG9iYWwgPSBUcnVlCiAgICBSRS5JZ25vcmVDYXNlID0gVHJ1ZQogICAgJ+ato+imj+ihqOePvuOBq+OCiOOCi+ODleOCoeOCpOODq+WQjeOBruODnuODg+ODgeippumokwogICAgU2V0IFJFbWF0Y2ggPSBSRS5FeGVjdXRlKGZuYW1lKQogICAgJ+ODnuODg+ODgeOBl+OBquOBhOOBquOCiee1guS6hgogICAgSWYgUkVtYXRjaC5Db3VudCA8IDEgVGhlbiBFeGl0IEZ1bmN0aW9uCiAgICAn5pel5LuY44Gu5b6M44Gu56m655m944CB6YCa44GX55Wq5Y+344Gu5b6M44Gu56m655m944CB6KiY6Yyy55So44Gu5YmN44Gu56m655m944GMMeahgeOBp+OBquOBhOOBquOCiee1guS6hgogICAgSWYgTGVuKFJFbWF0Y2goMCkuc3VibWF0Y2hlcygwKSkgPD4gMSBUaGVuIEV4aXQgRnVuY3Rpb24KICAgIElmIExlbihSRW1hdGNoKDApLnN1Ym1hdGNoZXMoMSkpIDw+IDEgVGhlbiBFeGl0IEZ1bmN0aW9uCiAgICBJZiBMZW4oUkVtYXRjaCgwKS5zdWJtYXRjaGVzKDMpKSA8PiAxIFRoZW4gRXhpdCBGdW5jdGlvbgogICAgJ+OCreODvOODr+ODvOODieOCkuioreWumgogICAga2V5d29yZCA9IFJFbWF0Y2goMCkuc3VibWF0Y2hlcygyKQogICAgQ2hlY2tGaWxlTmFtZSA9IFRydWUKRW5kIEZ1bmN0aW9uCifjgrXjg5bjg5Xjgqnjg6vjg4Djga7lj5blvpfvvIjlho3luLDvvIkKU3ViIGdldF9zdWJmb2xkZXJzKEJ5UmVmIEZTTyBBcyBPYmplY3QsIEJ5VmFsIHNfZm9sZGVyIEFzIFN0cmluZywgQnlWYWwgbGV2ZWwgQXMgTG9uZykKICAgIERpbSBmb2xkZXIgQXMgT2JqZWN0CiAgICAn5oyH5a6a44OV44Kp44Or44OA5YaF44Gu5YWo44OV44Kp44Or44OA44KS5Yem55CG44GZ44KLCiAgICBGb3IgRWFjaCBmb2xkZXIgSW4gRlNPLmdldGZvbGRlcihzX2ZvbGRlcikuc3ViZm9sZGVycwogICAgICAgIFJlRGltIFByZXNlcnZlIFRfZm9sZGVycyhUX2NvdW50KQogICAgICAgIFJlRGltIFByZXNlcnZlIFRfZW5kbmFtZXMoVF9jb3VudCkKICAgICAgICBUX2ZvbGRlcnMoVF9jb3VudCkgPSBmb2xkZXIucGF0aAogICAgICAgIFRfZW5kbmFtZXMoVF9jb3VudCkgPSBmb2xkZXIubmFtZQogICAgICAgIFRfY291bnQgPSBUX2NvdW50ICsgMQogICAgICAgICflj5blvpfjgZfjgZ/jg5Xjgqnjg6vjg4Djga7kuIvkvY3jg5Xjgqnjg6vjg4DjgpLlj5blvpfjgZnjgosKICAgICAgICBDYWxsIGdldF9zdWJmb2xkZXJzKEZTTywgZm9sZGVyLnBhdGgsIGxldmVsICsgMSkKICAgIE5leHQKRW5kIFN1Ygo=