VBA - Do Пока Loop возвращает Dir <Недопустимый вызов процедуры или аргумент>
Я запускаю цикл по папке, чтобы получить полный адрес файла (адрес папки + имя файла и расширение).
Я использую следующее, но в какой-то момент значение Dir<Invalid procedure call or argument>
recsFolder = Functions.GetFolder("C:\")
recfile = recsFolder & "\" & Dir(recsFolder & "\*.rec*")
Do While Len(recfile) > 0
recfile = recsFolder & "\" & Dir
Loop
Ошибка выдается перед завершением цикла при чтении всех файлов.
РЕДАКТИРОВАТЬ: другой подход и Dir меняется каждый раз, когда я нажимаю F8
If Right(recsFolder, 1) <> "\" Then recsFolder = recsFolder & "\"
numFiles = 0
recfile = Dir(recsFolder)
While recfile <> ""
numFiles = numFiles + 1
recfile = Dir()
Wend
Я пытаюсь этот последний подход, и я получаю ту же ошибку. Проблема заключается в том, что когда я запускаю код построчно (F8), я вижу, что значение Dir меняется каждый раз, когда внутри while запускается новая строка кода.