エラー 52「ファイル名または番号が不正です」の解決方法

Question

‘ここでエラー52が発生の箇所で「実行時エラー52:ファイル名または番号が不正です」が発生してしまいます。
意図としては、特定のフォルダ内の「共益」フォルダ（GetAttr(adr) = 16）に該当する場合には、それ以下の処理をしてくださいという指示なのですが、不思議なことに私のデバイスで実行するとエラーが発生せず、隣のPCで実行すると上記のエラーがでます。

当該エラーを調べてみるとOpenステートメントに関連して発生するとされているのですが、ご覧の通りOpenステートメントは使用していないですし、環境によって実行できる場合とできない場合が発生しているので手詰まりになってしまいました。

同じような経験や解決方法に知見のあるかたがいればアドバイスを頂けると大変ありがたいです。
宜しくお願い申し上げます。

Sub getFolderStruct()
Dim i As Long
Dim j As Long
Dim YYYYMM As String
Dim fileName As String
Dim Dic As Object
Dim buf As String
Dim itemsdic As Variant

Dim eachPath As String
Dim deepPath As String
Dim hypLink As Hyperlink

Dim adr As String
Dim deepAdr As String

Dim fso As Object
Dim n As Long
Dim m As Integer

Set fso = CreateObject("Scripting.FileSystemObject")

YYYYMM = Cells(6, 4).Value

If YYYYMM = "" Then
 MsgBox "YYYYMMに出力したいフォルダパスを入力してね" & vbCrLf & "「処理を終了します」"
 Exit Sub
End If

If Cells(4, 6).Value <> "" Then
 MsgBox "DebugAreaをクリーンにしてください" & vbCrLf & "「処理を終了します」"
 Exit Sub
End If

fileName = Dir(ThisWorkbook.path & "\" & YYYYMM & "*", vbDirectory)


Set Dic = CreateObject("Scripting.Dictionary")

Do While fileName <> ""
  If fileName <> "." And fileName <> ".." Then
  Dic.Add fileName, fileName
  End If
  fileName = Dir()
Loop

i = 4
 For Each itemsdic In Dic
   
   eachPath = Dir(ThisWorkbook.path & "\" & YYYYMM & "\" & itemsdic & "*", vbDirectory)
    Do While eachPath <> ""
    adr = ThisWorkbook.path & "\" & YYYYMM & "\" & itemsdic & "\" & eachPath
    
    
     If eachPath <> "." And eachPath <> ".." And GetAttr(adr) = 16 And eachPath = "共益" Then　‘ここでエラー52が発生
      Cells(i, 6).Value = itemsdic
      Set hypLink = ActiveSheet.Cells(i, 7).Hyperlinks.Add( _
        Anchor:=Cells(i, 7), _
        Address:=adr, _
      TextToDisplay:=eachPath)
      
      deepPath = ThisWorkbook.path & "\" & YYYYMM & "\" & itemsdic & "\共益"
      n = fso.GetFolder(deepPath).SubFolders.Count
      
      i = i + 1
      m = i + n
      For j = i To m
       Cells(j, 6).Value = itemsdic
       Cells(j, 7).Value = ">"
      Next
      
      i = i + n
      
    
     ElseIf eachPath <> "." And eachPath <> ".." And GetAttr(adr) = 16 And eachPath <> "共益" Then
      Cells(i, 6).Value = itemsdic
      Set hypLink = ActiveSheet.Cells(i, 7).Hyperlinks.Add( _
        Anchor:=Cells(i, 7), _
        Address:=adr, _
      TextToDisplay:=eachPath)
      
      i = i + 1
     End If
     eachPath = Dir()
    Loop
 Next
 
 Dim k As Long
 Dim camPath As String
 Dim camAdr As String
 
 k = 4
 Do While Cells(k, 7) <> ""
  If Cells(k, 7) = "共益" Then
    camPath = Dir(ThisWorkbook.path & "\" & YYYYMM & "\" & Cells(k, 6) & "\" & "共益*", vbDirectory)
    Do While camPath <> ""
     camAdr = ThisWorkbook.path & "\" & YYYYMM & "\" & Cells(k, 6) & "\" & "共益\" & camPath
      If camPath <> "." And camPath <> ".." And GetAttr(camAdr) = 16 Then
        Set hypLink = ActiveSheet.Cells(k + 1, 8).Hyperlinks.Add( _
        Anchor:=Cells(k + 1, 8), _
        Address:=camAdr, _
      TextToDisplay:=camPath)
      k = k + 1
      End If
     camPath = Dir()
    Loop
  Else
  k = k + 1
  End If
  
  
 Loop

End Sub

Comments

[t_obara]

隣の人のPCでその場所がアクセスできるかエクスプローラーなどで確認してみてください。

[pegy]

アクセスすることができました。下記の通り解決することはできました。環境依存文字の①の認識の問題でしたが、使用しているデバイスにより結果が異なる点についてまでは原因判明には至りませんでした。。。
丸数字を許可したことを今更公開はしているのですが、改良してすべての環境依存文字を変換して無害化する処理を検討してまいります。

Answer 1

”環境によって実行できる場合とできない場合が発生している”

この違いは検証されたのですか？

あと、Dir 関数でも同様のエラーが発生します。
パス名に漢字が使われたり、認識出来ない文字が使われている場合には、表題のエラーが出ます。

Comments

[pegy]

ありがとうございます。ご助言をもとに確認したところ、認識できない文字の問題で、”➀”が原因であることがわかりました。ここで、なぜ、隣のパソコンでは環境依存文字の”➀"が認識できず、自分のPCでは問題なく認識できたのかまではわからないのですが（winver等も確認しましたが、同一でした)いったん、解決したので、ベストアンサーとさせてください。
改めて御礼申し上げます。