Dir有大小限制吗？

Question

我有一个包含500,000个.xml文件的文件夹。 我正在这样扫描：

filePath = Dir(srcPath & "\*.xml")
Do While Len(filePath) > 0

    'do something with the file
    filePath = Dir
Loop

这对于〜66,000个文件可以正常工作，但随后在网上失败：

filePath = Dir

...带有非常普通的消息：Invalid procedure call or argument。 我已经在网上搜索了，但找不到类似的东西（此错误通常在一开始出现，而不是66,000成功之后出现）。

我唯一能想到的是Dir有一个限制，并且超过一定数量的元素，无法继续进行，并且没有处理异常，因此引发了非常通用的消息-但是我我完全不相信所有这种解释。

有人有什么主意吗？

P.s。在代码“ 'do something with the file”中，我正在调用另一个函数，但它不再使用=Dir()，只是加载XML文件并读取一些信息。