I am trying to implement the FTP Service Class written by Robert Abram but have run into some difficulties. I seem to be connecting okay but I receive the following error when trying to retrieve a file from the FTP server:

Error(300000) - Unknown Error Message
Extended Error Info - (0) - 200 Type Set to I
200 PORT Command Successful
213 156693
150 Opening BINARY mode data connection for /webslides/Airports/LoganAir.pdf(156693 bytes)

Below is the code I am using:

SET PROCEDURE TO ftp.prg ADDITIVE
sz_ftp = CREATEOBJECT('ftp_service')
IF sz_ftp.openinternet("XXXX","XXXX","130.205.XXX.XXX","21")
MESSAGEBOX("Successful Connection",64)
ENDIF

IF !sz_ftp.Getftpfile("\WebSlides\Airports\LoganAir.pdf","c:\LoganAirt.pdf",.t.)
?sz_ftp.Geterrorcode(.t.)
ENDIF

I am using VFP 7.0 SP1. Any help would be greatly appreaciated.

Thanks in advance,
Russell