Как да копирате всички файлове от директория

Добър ден! Въпросът ми е как да копирам всички * .dbf файлове от директория, т.е. Правя един файл CopyFile (от къде, къде), но като група. Първо трябва да бъдат избрани?

> Хелън

Можете да използвате TFileListBox или FindFirst. Намери следващото

> файл Правя CopyFile (от къде, къде), но като група.

цикъл

TFileListBox не може да се използва, тъй като конзолно приложение.
Цикъл означава използване на FindFirst. Намери следващото? И как да зададете параметър за тези функции?

В помощта открих, че можете да зададете маска, сега ще опитам. Все още не съм използвал тези функции.

> Хелън

var s: TSearchRec;
започнете
ако FindFirst ("* .dbf", faanyfile, s) = 0 тогава
повторете
ListBox1.Items.Append (s.Name);

---