PROCEDURE ftp_download
LPARAMETERS cDirOut

#DEFINE INTERNET_INVALID_PORT_NUMBER 0
#DEFINE INTERNET_SERVICE_FTP 1
#DEFINE INTERNET_FLAG_PASSIVE 0x08000000
#DEFINE INTERNET_OPEN_TYPE_DIRECT 1
#DEFINE FTP_TRANSFER_TYPE_BINARY 2
#DEFINE FILE_ATTRIBUTE_NORMAL 128

DECLARE INTEGER FtpGetCurrentDirectory IN wininet.DLL;
INTEGER hFtpSession,;
STRING @ lpszDirectory,;
INTEGER @ lpdwCurrentDirectory

DECLARE INTEGER FtpSetCurrentDirectory IN wininet.DLL;
INTEGER hFtpSession,;
STRING @ lpszDirectory

DECLARE INTEGER InternetOpen IN wininet.DLL;
STRING sAgent, INTEGER lAccessType,;
STRING sProxyName, STRING sProxyBypass,;
INTEGER lFlags


DECLARE INTEGER FtpDeleteFile IN wininet.DLL;
INTEGER hConnect,;
STRING lpszFileName

DECLARE INTEGER FtpFindFirstFile IN WinInet.DLL;
INTEGER nConnect_Handle, STRING @lpcSearchStr, ;
STRING @lpcWIN32_FIND_DATA, ;
INTEGER nFlags, INTEGER nContext

DECLARE INTEGER InternetConnect IN wininet.DLL;
INTEGER hInternetSession,;
STRING sServerName,;
INTEGER nServerPort,;
STRING sUsername,;
STRING sPassword,;
INTEGER lService,;
INTEGER lFlags,;
INTEGER lContext

DECLARE INTEGER InternetCloseHandle IN wininet.DLL;
LONG hInet


DECLARE INTEGER InternetFindNextFile IN WinInet.DLL ;
INTEGER nConnect_Handle, STRING @lpcWIN32_FIND_DATA


DECLARE INTEGER FtpGetFile IN WinInet.DLL ;
INTEGER nConnect_Handle, STRING @lpcRemoteFile, STRING @lpcNewFile, ;
INTEGER nFailIfExists, INTEGER nAttributes, INTEGER nFlags, ;
INTEGER nContext

DECLARE INTEGER FtpDeleteFile IN wininet.DLL;
INTEGER hConnect,;
STRING lpszFileName


PRIVATE hInternet

hInternet = InternetOpen("FoxFtp",INTERNET_OPEN_TYPE_DIRECT, 0,0,0)

hConnection = InternetConnect(hInternet,'АДРЕС ФТП',INTERNET_INVALID_PORT_NUMBER,;
'ЛОГИН','ПАРОЛЬ', INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)
IF hConnection=0

msguser("Не удалось соединиться с FTP-сервером.Обратитесь в отдел IT")

RETURN .F.
ELSE

FtpSetCurrentDirectory(hConnection, 'ваша папка на ФТП')
LOCAL cStruct
lcMask='*.*'

cStruct = SPACE(319)
nRes=FtpFindFirstFile(hConnection, @lcMask, @cStruct, 0, 0)
cRemFile=SUBSTR(cStruct, 45,17)


cNewFile=cDirOut+cRemFile

fRes=FtpGetFile(hConnection, @cRemFile, @cNewFile,1,FILE_ATTRIBUTE_NORMAL,FTP_TRANSFER_TYPE_BINARY,1)



lcStruct = SPACE(319)

DO WHILE InternetFindNextFile(nRes,@cStruct)!=0
cRemFile=SUBSTR(cStruct, 45,17)
cNewFile=cDirOut+cRemFile

fRes=FtpGetFile(hConnection, @cRemFile, @cNewFile,;
1,FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_BINARY, 0)


ENDDO


InternetCloseHandle(hConnection)


как то так....

процедура получает список файлов на FTP-серванте и скачивает их на диск (в папку) переданную в качестве параметра

папка должна существовать