指定したフォルダ以下の指定した種別ファイルパスを取得する

指定したフォルダの下位フォルダも再帰処理で検索対象とする関数。

ポイントはStatic変数。再帰処理でDimを使うと消えてしまうので。

使用例

Sub Main()
    Dim filePath As Variant
    filePath = RecursionFile("C:\bin", "*.xlsx")
End Sub