如何计算所有子文件夹中所有文件的总llines

Question

我想使用vba对目录的所有子文件夹中的所有文件中的所有行进行计数，并将其显示在单元格中。我该怎么办？

我发现了一个用于计算单个文件中行数的代码。但我不知道如何构造循环，以将其应用于所有子文件夹中的所有文件

Function countLF(fName As String) As Long
    Dim st As String
    Open fName For Input As #1: st = Input(LOF(1), 1): Close 

    countLF = Len(st) - Len(Replace(st, vbLf, "")) + 1
End Function

=countLF("c:\test.txt")