フォルダパスとファイル名をdirでいずれも取得する

Question

度々失礼いたします。
currentPathの配下に以下のような構造のパスとファイルが存在します。
-a(フォルダ)
-b(フォルダ)
-c.pdf
-d.xlsx
これらを種類に関係なく全てを取得したいのですが、下記のdirの第二引数の設定でもPDFファイルとxlsxファイルしか取得できません。どのようにしたらこれら全てを取得できるのでしょうか。
ご助言頂けますと幸いです。

currentPath = C:\Users\name\Desktop\test\202002
 eachPath = Dir(currentPath & "*", vbNormal + vbDirectory)
    Do While eachPath <> ""
     Debug.Print (eachPath)
     eachPath = Dir()
Loop

Answer 1

以下の指定で改善するかと思います。

"*.*"

Comments

[pegy]

ありがとうございます。無事解決いたしました！

[WhiteTempest]

解決したようで良かったです。

私もDirの内部処理を詳しく把握しているわけではありませんので私見にはなりますが、
恐らく＼*だけだと、ファイル名検索になるのかもしれません。