VBA 再帰呼び出し

Question

再帰呼び出しで、変数bufが見つかった場合は、配列Sheet、Sheet_pathに格納するコードを書いています。
bufを全て取得したらcallで別のプロシージャを呼び出そうと思っているのですが、再帰の時点ではbufが何個あるのか分からず、いつifでcallを実行できるのかで悩んでいます。

現時点のコード

Sub FileSearch(path)


Dim FSO As Object, Folder As Variant, file As Variant, buf As String, this As Worksheet
Set FSO = CreateObject("Scripting.FileSystemObject")

buf = Dir(path & "*test.xls*")

Do While buf <> ""

ReDim Preserve Sheet(bb)
ReDim Preserve Sheet_path(bb)
Sheet(bb) = buf
Sheet_path(bb) = path

bb = bb + 1
buf = Dir()

If  Then 'ここで思考中
Call hikaku
End
End If

Loop



 

For Each Folder In FSO.GetFolder(path).SubFolders
   Call FileSearch(Folder.path) '??A??яo??
Next Folder

End Sub

例えばbufが7つあれば、

If bb=8 then
call hikaku
End
End If

とできるのですが、全てのフォルダに7つづつあるとも限りません

どうやって再帰を抜け出そうか思考中です

よろしくお願いします

Answer 1

1回のFileSearchの呼び出しで、対象フォルダ内のファイル抽出を行い、サブフォルダがあれば再度FileSearchを呼び出す。
この仕組みになっていれば再帰を抜け出す条件は不要です。
というわけでコードを見てみるとそのような作りになっているので、悩んでいるところのIf文のところはバッサリなくして大丈夫です。
FileSearchの先頭あたりで、

Debug.Print path

と書いておけば、どのファルダが対象になっているかわかるはずなので、ご確認を。
少なくとも私の環境では問題なく実行できました。

Answer 2

対象のフォルダ（とそのサブフォルダ）の中からbuf相当のファイルを全て抜出し、一番最後にhikakuを1度だけコールしたいと読めますが合っていますか？

それなら、別の関数からFileSearchをコールし、これが終了したら1回hikakuをコールすればよいのではないでしょうか。
Do While でループしていて、ループ終了条件もはっきりしているならループ回数は気にする必要ありません。

' FileSearchはそのまま。hikakuするコードは削除。
Sub FileSearch(path)

	Dim FSO As Object, Folder As Variant, file As Variant, buf As String, this As Worksheet
	Set FSO = CreateObject("Scripting.FileSystemObject")

	buf = Dir(path & "*test.xls*")

	Do While buf <> ""
		ReDim Preserve Sheet(bb)
		ReDim Preserve Sheet_path(bb)
		Sheet(bb) = buf
		Sheet_path(bb) = path

		bb = bb + 1
		buf = Dir()
	Loop

	For Each Folder In FSO.GetFolder(path).SubFolders
	   Call FileSearch(Folder.path) 
	Next Folder

End Sub

' 画面からはこの関数をコールする。
Sub DoFileSearch(path)
	call FileSearch(path)
	call hikaku
End Sub