- Код: Выделить всё
f = Dir$(Path & "*.mes")
While (f <> "")
DoEvents
total = FileCount("users\@" & ... & "\inbox\*.mes", ftFiles)
CopyFile Path & f, App.Path ... "\inbox\" & total & ".mes", 0
f = Dir$
Wend
В предпоследней строке выкидывается ошибка о неверном параметре.
Дело в том что в функции FileCount тоже есть подобное использование Dir. У меня закрадывается мысль что перекрестное использование dir'a невозможно. У вас есть более четкие сведения об этом?
