У 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 и читает некоторую информацию.