Таким образом, я разместил тот же вопрос на официальном форуме eltex, и они сказали, что сервер автоматической настройки, используемый моим провайдером, вызывает откат. Они попросили моего провайдера связаться, чтобы они могли позаботиться об этом. Я обновлю этот вопрос, как только он будет решен.
Ура.
sFilename = Dir(sFoldername)
Do While sFilename > ""
debug.print sFilename
sFilename = Dir()
Loop
Решение ди-джея является простым и эффективным, просто выведя другой в случае, если Вам нужно немного больше функциональности, которую FileSystemObject может обеспечить (требует ссылки на Microsoft Scripting Runtime).
Dim fso As New FileSystemObject
Dim fil As File
For Each fil In fso.GetFolder("C:\").Files
Debug.Print fil.Name
Next