二重DoWhileができない

Question

前提・実現したいこと

excelVBAで２つのフォルダに存在するファイルのファイル名を順番に取得し、処理を行うプログラムを作ろうとしています。
Do While文を二重にしてしまうとエラーが発生してしまうようなので、何か対処する方法はないでしょうか？

実行をすると1週目の"nameA = Dir()"で次のファイル名を取得することができず、「プロシージャの呼び出し または引数が不正です」というエラーが出ます。

該当のソースコード

Sub test()

Dim pathA As String
Dim pathB As String
Dim nameA As String
Dim nameB As String

pathA = "C:\～\testA"
pathB = "C:\～\testB"
nameA = Dir(pathA & "*.txt")
nameB = Dir(pathB & "*.txt")
    
    Do While nameA <> ""
    '/*処理A*/
        Do While nameB <> ""
        '/*処理B*/
        nameB = Dir()
        Loop
    nameA = Dir()
    Loop
End Sub

Answer 1

Dir関数では2つのフォルダを同時に処理することはできません。
（Dir()ではどちらのフォルダを対象にしているのかわかりませんよね）
よって他の回答にあるように戻り値が""のあとに更にDir()を行ってしまいエラーになっています。

２つのフォルダに存在するファイルのファイル名を順番に取得し

このような前提条件があるので、DirでAフォルダを検索し、取得したファイルがBフォルダにあるかどうかをチェック、存在する場合のみ処理を行えばよいかと思います。
Bフォルダ内にあるかどうかのチェックにDirで回す必要はないです。
FileSystemObjectのFileExistsを使うと良いでしょう。
参考

Comments

[Kazu_p8619]

ご回答いただきありがとうございます。

Answer 2

Dir()と引数を省略して実行すると直前のDirの引数を引き継いでその次のファイル名を取得します。

ですので、 Do ... Loop内のDir()はすべてpathBフォルダーを検索することになります。

pathA内のファイルには処理A、pathB内のファイルには処理Bなら、ネストさせる必要はないとおもいますが、どうでしょうか。

ネストさせる必要か本当にあるなら、
最初に、pathA内のファイルを配列に格納して、その配列をループさせて、その中でpathBを対象にループをネストさせることになります。

あるいは、FileSystemObject を使うことになります。

Comments

[Kazu_p8619]

ご回答いただきありがとうございました。
FileSystemObjectを使いエラーなく処理が完了しました。
ただファイル名を取得する際に、処理が少し遅れているようなので配列を用いた方法でも試してみたいと思います。

Answer 3

エラーは、dir()が空文字列を返した後にさらにdir()を呼んでいるからです。

内側のループを抜けた段階でdir()は""なので、そのあとにnameA = Dir()するとエラーになります。

dir()の仕様の勘違いがあるようです。
プログラム構造を作り直す必要があります。

Comments

[Kazu_p8619]

ご回答いただきありがとうございます。