I am not sure what happen so I may have sent an incomplete response. FWIW here is my code where
lcCmd1 is
quote site fixrefm or
quote site fixrecfm.
SET PROCEDURE TO ftp.prg ADDITIVE
#INCLUDE FTP.H
loFTP = CREATEOBJECT('ftp_service')
IF loFTP.OpenInternet(lcUser,lcPass,lcNode, "21")
lcMsg = 'Connect user ' + lcUser + ' on ' + lcNode
=WAITSIM(lcMsg)
=loFTP.FtpCommand("SITE HELP", FTP_TRANSFER_TYPE_ASCII,0,.NULL.)
lcMsg = ALLTRIM(STR(loFTP.GetExtendedErrorCode())) + ' ' + ;
ALLTRIM(loFTP.GetExtendedErrorMsg())
=WAITSIM(lcMsg,gnMsgWait)
llAllocResult = loFTP.FtpCommand(lcCmd1, FTP_TRANSFER_TYPE_ASCII,0,.NULL.)
IF llAllocResult
lcMsg = 'Executed ' + lcCmd1 + ' command'
=WAITSIM(lcMsg,gnMsgWait)
llPutResult = loFTP.PutFTPFile( lcRFile , lcLFile , lnFTPMode )
IF llPutResult
lcMsg = "File " + lcLFile + " uploaded as " + lcRFile
=WAITSIM(lcMsg,gnMsgWait)
ELSE
lcMsg = ALLTRIM(STR(loFTP.GetExtendedErrorCode())) + ;
' ' + ALLTRIM(loFTP.GetExtendedErrorMsg())
=WAITSIM(lcMsg,gnMsgWait)
lcMsg = 'Could not upload file ' + lcLFile + ' as ' + lcRFile
=WAITSIM(lcMsg,gnMsgWait)
ENDIF
ELSE
lcMsg = ALLTRIM(STR(loFTP.GetExtendedErrorCode())) + ;
' ' + ALLTRIM(loFTP.GetExtendedErrorMsg())
=WAITSIM(lcMsg,gnMsgWait)
RETURN .F.
ENDIF
>>>>Thanks for response. The problem is that I also get the error
>>>>
501 unrecognized SITE command
>>>
>>>Maybe it's case sensitive?
>>>
>>>>I thought that "quote" just passed on the rest of the command, i.e.
site .....
>>>
>>>That exactly what it does in the FTP client you're using.
>>
>>I am using FTP Class 202 which I got from the Universal thread.
>
>Not when you use 'quote' command.