二重ループでdir()をすると引数エラーが発生する

Question

以下のようなコードを作成しており、コメントの二重ループのコードを加えるまではエラーがなく動作をしておりました。
そこでeachPathの中にdeepPathをDo Whileによる二重ループが必要となり実行すると
eachPath = Dir()'ここですの箇所で以下のエラーが発生します。
実行エラー5　プロージャの呼び出しまたは引数が不正です
Dirの中で異なるDir()を実行してもそれ自体がエラーの原因となる認識はないのですが、どなたかご助言をいただけますでしょうか？

宜しくお願い申し上げます。

Sub getFolderStruct()
Dim i 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


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 = "ABC" Then
      Cells(i, 6).Value = itemsdic
      Set hypLink = ActiveSheet.Cells(i, 7).Hyperlinks.Add( _
        Anchor:=Cells(i, 7), _
        Address:=adr, _
      TextToDisplay:=eachPath)
     deepPath = Dir(ThisWorkbook.Path & "\" & YYYYMM & "\" & itemsdic & "\ABC*", vbDirectory)

        Do While deepPath <> ""　'二重ループ
         deepAdr = ThisWorkbook.Path & "\" & YYYYMM & "\" & itemsdic & "\ABC" & "\" & deepPath
         If deepPath <> "." And deepPath <> ".." And GetAttr(deepAdr) = 16 Then
         Set hypLink = ActiveSheet.Cells(i, 8).Hyperlinks.Add( _
          Anchor:=Cells(i, 8), _
          Address:=deepAdr, _
          TextToDisplay:=deepPath)
          i = i + 1
         End If
         
         deepPath = Dir()
         
        Loop'二重ループ
     
    
     ElseIf eachPath <> "." And eachPath <> ".." And GetAttr(adr) = 16 And eachPath <> "ABC" 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

End Sub

Answer 1

二重ループの中でDir()で取れるものを出し切った後で、もう一度Dir()したからでしょうね。

Comments

[pegy]

ありがとうございます。誤認がございました。

Answer 2

Dirの中で異なるDir()を実行してもそれ自体がエラーの原因となる認識はないのですが、

それはNGです。エラーになります。
過去に同様の質問がありましたのでご参考に。

VBA - Dirメソッドの更新(Dir=())での「プロシージャ呼びだし、又は引数が不正です。」｜teratail

上記で解決法を提示してます。

Comments

[pegy]

ご指摘ありがとうございます、過去の案件でfsoオブジェクトを使って再帰的な処理をしているようなので参考にしてみます。よろしくお願い申し上げます。