By using FTP 5.0+

[Quote]
SET PROCEDURE TO ALLTRIM(log_system.workpath)+"form\ftp.prg" ADDITIVE
PUBLIC z_memo, loFTP
loFTP = CREATEOBJECT('ftp_service')

cUID = "????"
cPWD = "3838"
cAddress = "???.???.???.???"
cPath = "/bmp/"
cFile = "*.*"

IF loFTP.OpenInternet(cUID, cPWD, cAddress,"21")
success1=loFTP.ChangeFTPDirectory(cPath)
success2=loFTP.GetFTPDirectoryArray(@gaServerFile,cFile)
loFTP.GetFTPFile(cFile, ALLTRIM(log_system.workpath)+"bmp\"+cFile)
ELSE
MessageBox("No Connection Made"+STR(loFTP.GetErrorCode(.T.)), 64, "FTP Message")
ENDIF
loFTP.CloseInternet()
[/Quote]