EXCEL VBA 環境依存文字を含むファイルパスをバイナリ形式で開きたい

ファイルをバイナリ形式で開きたいが、ファイルパスが256文字以上だったり

環境依存文字が含まれている場合、Dir関数が対応しておらず、開くことができない。

そんなときの対処法は

FileSystemObjectを使用してShortPathでファイルを取得する。

そうすると環境依存文字が含まれず、短いパスでファイルを指定することができる。

念のためにDirでファイルが取得できるか判定することで回避することもできる。

Sub hogehoge()
    Dim FSO As Object
    Dim FilePath As String
    FilePath = "XXXXXXXXXXXXXX"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    MsgBox FSO.GetFile(FilePath).ShortPath
    Set FSO = Nothing
End Sub