Проблеммы с FTP

int CLoadHTML::LoadFTPAllDir(CString FileDir,CString Server,CString FTPDir,CString Login,CString Pass)
{
    CString FD=_T(FileDir);
    CInternetSession session;
    CFtpConnection *cp=session.GetFtpConnection(Server,Login,Pass,INTERNET_INVALID_PORT_NUMBER,TRUE);
    cp->SetCurrentDirectory(FTPDir);
    CString Dir;
    CFtpFileFind finder(cp);
    BOOL bWorking = finder.FindFile(_T("*"));
    CString FullPath;
    CString FileName;
    int res=0;
    int pos;
        while (bWorking)
        {
            bWorking = finder.FindNextFile();
 
        //ищем имя файла
            FullPath=finder.GetFileURL();      
            int pos=FullPath.ReverseFind('/');
            FileName=FullPath.Mid(pos+1,FullPath.GetLength());
            if ((FileName!=".")&&(FileName!=".."))
            {  
            res=cp->GetFile(FileName,FileDir+FileName,false);
            }
        }

    cp->Close();
    return res;
}