pozvonok написал(а):
После нахождения файла он выполняет условия цикла и попадает опять на Wend
В условии нет выхода из цикла.
Нужно заменить FinishDirectory(0) в блоке If на Break.