VBA文件遍历函数Dir有数量限制吗

VBA文件遍历函数Dir有数量限制吗，文件夹里有两万个文件，现在只能读取到5000个，不知道原因。
代码如下：

i = 6
resFiles = Dir(FilePath & "\Doc\" & "*.*")
Do While resFiles <> ""
Cells(j, 6).Value = resFiles
i = i + 1
resFiles = Dir
Loop

遍历的文件数量也是5000，难道DIR遍历文件数量极限就是5000吗？
Set fc = fso.GetFolder(FilePath & "\Doc")
FilesCount = fc.Files.Count

@快乐鹦鹉 @小当家huan