Помогите с поиском и выделением имени папки

Здравствуйте!
Помогите пожалуйста решить следующую задачу:
В исходной директории имеется множество папок и файлов. Названия папок переменной длины, но все оканчиваются на "_хххх", где "хххх" - буквенно-циферная последовательность, индивидуальная для каждой папки. Необходимо 1) перебрать папки, 2) в названии папки выделить "хххх", 3) найти в другой директории папку с названием "хххх", 4) скопировать исходную папку в найденную папку.
Пп. 3, 4 - это просто. Проблемы возникают с 1, 2. Функция filefindfirstfile у меня ищет только файлы в исходной директории, а папки пропускает((

Ну для поиска папок можно использовать ф-ю
Ищет как папки и файлы, так и только папки, или только файлы.
После чего работать уже с массивом данных.