FTP FtpFindFirstFileA реализация?

[Sada]

void findZipFiles(FilePath _fullFilePath)
{
    #File
    void findFiles(FileName _path,
                  FileName _fileName,
                  FileName _prefix = this.fullFileName(_path,_fileName))
    {
        FileName    fileName;
        int         hdl;
        ;
        setprefix(_prefix);
        if (WinAPI::folderExists(_path))
        {
            [hdl,fileName] = WinApi::findFirstFile(this.fullFileName(_path,_fileName));
            while (fileName)
            {
                fileName = WinApi::findNextFile(hdl);
            }
            WinApi::findClose(hdl);
        }
    }
;
    findFiles(_fullFilePath,'*.zip');
}

FileName fullFileName(FileName _path, FileName _fileName)
{
    FileName    pathName;
    FileName    fileName;
    FileName    fileExtension;
    ;
    [pathName,fileName,fileExtension] = fileNameSplit(_fileName);
    return _path + '\\' + fileName + fileExtension;
}

ЗЫ: Не судите строго, но суть кажись должна быть понятна...