使用vba / Excel计算子文件夹中的文件名

Question

我想根据Excel中的字符串和路径计算（子）文件夹中的文件名。它与下面的可理解的vba代码很好地工作，除了它不在子文件夹中搜索。只需在路径中添加通配符就会出错。我已经花了几个小时的时间，虽然看起来很简单，但我无法让它发挥作用。

问题 任何人都可以给我一个指针，这个代码如何在子文件夹中进行countsearch？

代码

Sub CountFiles()

Sheets("Kex").Activate

Dim i As Integer
Dim x As Integer
Dim Folder As String
Dim ExcelFN As String
Dim NumFiles As Integer

For i = 1 To 400
    NumFiles = 0 '<-- Reset count

    oFolder = Sheets("Kex").Range("B" & i).Value & "\"
    ExcelFN = Sheets("Kex").Range("A" & i).Value

    FileName = Dir(oFolder & ExcelFN & "*" & ".jpg")

    While FileName <> ""
        NumFiles = NumFiles + 1
        FileName = Dir()
    Wend

    Sheets("Kex").Range("C" & i) = NumFiles
Next i

End Sub