常連

今日こんなことがありました。
ShiftJISで保存されたCSVを、メモ帳でUTF-8に変換して、
Jsで読み込みました。
データを配列にして、その中から文字列を探したのですが、同じ文字列のはずのものの比較（XXX == XXX)がfalseを返しました。
Console.logで確認したところ文字列としては完全に一致しています。
もっと大元の部分のデータで何か違うのかなと思うのですが、無理矢理シフジスをUTF-8に変換したからでしょうか…？
表面上の（?）文字列だけの比較がしたい時はどのように対処できるでしょうか…？

Shift jis のCSVをUTF8に。そして文字列を比較すると…

こちらの[サイト](https://www.fastclassinfo.com/entry/vba_pdf_combine#%E7%89%B9%E5%AE%9A%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E3%81%AEPDF%E3%82%92%E4%B8%80%E3%81%A4%E3%81%AB%E3%81%BE%E3%81%A8%E3%82%81%E3%82%8B%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0)を参考にして特定のフォルダでpdfファイルを結合させるコードを作成しております。

PDF環境
Adobe Acrobat 2017
※サイト内でproが必要となっていますが、参照設定でacrobatが選択できており、問題はないと判断しています。

さて、以下のコードの通り、ループをさせて実行させるとCells(6,4)とCells(7,4)のパスにある_combined.pdfだけ4kbのファイルができて、クリックすると「この文書を開くときにエラーが発生しました。このファイルにはページがないため開けません」というメッセージボックスが出現し、結果としてうまくPDFが結合できていないことがわかりました。反対にCells(4,4)とCells(5,4)はうまく結合できております。それぞれpdfファイルが2つずつ入っており、特に権限等にも差がないように思われます。特に失敗しているpdfファイルだけが重いという特徴もございません、

### 試したこと
①前半がうまくいっていることから、以下のコードのように、waitで処理時間を待機させてみたのですが、特に効果はありませんでした。

②ループではなく直接Cells(7,4)だけを実行してみたのですが、結果は結合に失敗しました。

八方ふさがりな状況で、何か考えられる原因がわかる方、何卒、アドバイスを願えますでしょうか。
宜しくお願い申し上げます。

```vba
/*
Cells(4,4) → C:\Users\re\Desktop\2.A会社\#213★1_202009AA
Cells(5,4) → C:\Users\re\Desktop\2.B会社\#214★1_202009BB
Cells(6,4) → C:\Users\re\Desktop\2.C会社\#215★3_202009CC
Cells(7,4) → C:\Users\re\Desktop\2.D会社\#216★3_202009DD

*/
Option Explicit
Declare Function StrCmpLogicalW Lib "SHLWAPI.DLL" (ByVal lpStr1 As String, ByVal lpStr2 As String) As Long


Sub combine()
   Dim i As Integer
   Dim cl As String
   Dim fn As String
   
   Dim startTime As Double
   Dim endTime As Double
   Dim processTime As Double
   
   startTime = Timer
    i = 4
    Do
       cl = Cells(i, 4).Value
       fn = Mid(cl, InStr(cl, "_") + 1)

       If cl = "" Then
          Exit Do
         End If


        Debug.Print (cl)
        Call Combine_All_PDF(cl, fn)
        
        Application.Wait Now + TimeValue("00:00:05")
       i = i + 1

     Loop
     endTime = Timer
     processTime = endTime - startTime
     MsgBox "処理が完了しました、経過時間は" & processTime & "です。"
End Sub


Sub Combine_All_PDF(filepath As String, filename As String)
    
    Dim i As Long
    Dim fs As FileSystemObject
    Dim basefolder As Scripting.Folder
    Dim savepath As String
    Dim st() As String
    Dim mysubfiles As Scripting.Files
    Dim mysubfile As Scripting.File
    
    Set fs = New Scripting.FileSystemObject
    
  
    
    Set basefolder = fs.GetFolder(filepath)
    Set mysubfiles = basefolder.Files
    
    i = 0
    
    For Each mysubfile In mysubfiles
        
        If fs.GetExtensionName(Path:=mysubfile) = "pdf" Then
            ReDim Preserve st(i)
            st(i) = mysubfile.Path
            Debug.Print st(i)
            i = i + 1
        End If

    Next

'---コード3｜抽出したPDFファイルを配列を利用して、名前順に並び替える
    Dim j As Long
    Dim tmp As String
    
    For i = 0 To UBound(st)
        For j = i To UBound(st)
            Debug.Print st(i), st(j)
            If StrCmpLogicalW(StrConv(st(i), vbUnicode), StrConv(st(j), vbUnicode)) > 0 Then
                tmp = st(i)
                st(i) = st(j)
                st(j) = tmp
                Debug.Print tmp
                Debug.Print st(i)
                Debug.Print st(j)
            End If
        Next
    Next
    

'---コード4｜名前順にPDFファイルを結合していく
    Dim AcroPDDocNew As New Acrobat.AcroPDDoc
    Dim AcroPDDocAdd As New Acrobat.AcroPDDoc
    Dim acroid As Long
    Dim acroGetPages As Long
    Dim acroPages As Long

    acroPages = 0
    acroid = AcroPDDocNew.Create()
    
    Dim f As Variant
    
    For Each f In st
        acroid = AcroPDDocAdd.Open(f)
        acroGetPages = AcroPDDocAdd.GetNumPages()
        acroid = AcroPDDocNew.InsertPages(acroPages - 1, AcroPDDocAdd, 0, acroGetPages, True)
        acroid = AcroPDDocAdd.Close()
        acroPages = acroPages + acroGetPages
    Next

    savepath = filepath & "\" & filename & "_combined.pdf"

    '結合したPDFファイルを最後に保存する

    acroid = AcroPDDocNew.Save(1, savepath)
    acroid = AcroPDDocNew.Close()

    'オブジェクトを強制開放する

    Set AcroPDDocAdd = Nothing
    Set AcroPDDocNew = Nothing

End Sub

```

VBAでPDFを結合させる場合において、失敗するケース理由がわかりません

Excel VBAでプログラムを実行しようとすると、「&H8000FFFF(-2147418113)致命的なエラーです」という、下記の画像のエラーが表示されます。
![「&H8000FFFF(-2147418113)致命的なエラーです」](5d2aa90ab38788802ce79b46c31d1e54.png)

実行したプログラムは以下のようなものです。

```vba
Sub MapRange()
Dim Fc As Workbook, wb As Workbook

    Set Fc = Workbooks("地図一括管理表.xlsx")
    Set wb = ThisWorkbook
    
    wb.Sheets("管理").Range("最北端").Value = Fc.Sheets("統計").Range("最北端").Value
    wb.Sheets("管理").Range("最南端").Value = Fc.Sheets("統計").Range("最南端").Value
    wb.Sheets("管理").Range("最西端").Value = Fc.Sheets("統計").Range("最西端").Value
    wb.Sheets("管理").Range("最東端").Value = Fc.Sheets("統計").Range("最東端").Value
    
End Sub
```

なお、同じプログラムを3日前に実行したときは、このようなエラーが発生することはありませんでした。
今日になって、エラーが発生するようになりました。
(**1年以上前からこのプログラムを実行していますが、このようなエラーが出たのは今日が初めてです**)
(勿論、「実行時エラー」ではないことは確認済です。)

そのため、書いたプログラム自体の問題ではなく、Officeのビルトが更新されたことによってエラーが起きるようになった可能性があると踏んでいるのですが、
ビルトを戻せば直るでしょうか。

ビルト番号を確認してみたところ、13127.20408となっていました。(Office自体は2016です)
![ビルト番号](34bf7249c1361ce7e057058c5086773b.png)

Excel VBAで「&H8000FFFF(-2147418113)致命的なエラーです」と表示される。

windows バッチでやりたいことがあります、ですがわからないことが多いので質問します(検索などして自己解決できませんでした)

やりたいこと 大量にファイルをコピーしたりするのでファイルチェックサムを調べたいですが毎回手動で一個一個チェックするのは現実的ではないのでので自動化したいです
つけたい機能
1:フォルダを指定した場合サブフォルダーを含むチェック
2:CSVやTXTなどの外部ファイルにデータ保存 同じファイル名があったら比較なかったら新規追加 

例えば"d:\test*"のようにワイルドカードをつけるとエラーが発生する

以上のことを実現するにはどのようなコマンドを使用すればいいのでしょうか？
初心者なのでわからないことばかりですがよろしくお願いします

今できているコマンド

@echo off
set L=%~dp0 rem d:\test_bat\test\
echo dp0=%L%
:menu
echo /
echo /
echo   0:"dp0\test\" のファイルをチェックする 
rem テスト用↑
echo   1:"e:\test\" のファイルをチェックする                  
echo   2:指定パスのファイルをチェックする                              
   
set /p S= "上記から選択してください"
IF /i "%S%" == "0" (goto 0)
IF /i "%S%" == "1" (goto 1)
IF /i "%S%" == "2" (goto 2)
echo 入力された文字%S%

IF not "%S%_OTL" == "00" (goto error)
goto debug end


:0 %L%test
certutil -hashfile "%L%test*"

goto end
:1
certutil -hashfile "e:\test*"

goto end
:2
SET /P P= "パスを指定してください"

certutil -hashfile %P%
goto :end

:end
goto debug end
echo 5秒後に自動終了します
timeout 5 /nobreak
exit

:debug end rem 終わったら消す
echo 999秒後に自動終了します
timeout 999 /nobreak
exit

:error

echo 選択肢以外の番号が入力されました、正しい番号を入力して下さい。
goto menu