Копирование папок по маске

[Crunkordie]

Здравствуйте.
есть код:

 
 uses ShellApi
 ...
 CF.Wnd:=0;
 CF.pFrom:='D:\FTP\*.*';
 CF.pTo:='D:\FTP_Copy';
 CF.wFunc:=FO_COPY;
 CF.fFlags:=FOF_NOCONFIRMATION;
 ShFileOperation(CF);

Этот код копирует все файлы из папки "FTP" в папку "FTP_Copy". Хотелось, что бы была возможность копировать папки по маске.
Например выставить маску "FTP*" и будут копировать все папки, которые начинаются с "FTP". Подскажите пожалуйста, как это реализовать.

[FaTaL]

Маску тут поставь попробуй

CF.pFrom:='D:\FTP\FTP*';