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

我想根据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

Sub CountFiles（）
工作表（“Kex”）。激活
作为整数的Dim i
作为整数的Dim x
将文件夹设置为字符串
作为字符串的Dim ExcelFN
将NumFiles设置为整数
对于i=1到400
NumFiles=0'请检查Thx Maddy，这确实起了作用！但我不知道如何修改代码，所以它只计算A列中给定的文件名。