This first part succeeds (resultcode 0)
LOCAL lnResult lnResult=THISFORM.Ftp.FTPconnect(ALLTRIM(THISFORM.txtFTPserver.Value),ALLTRIM(THISFORM.txtUserID.Value),ALLTRIM(THISFORM.txtPassword.Value))IF lnResult=0* Succes AppMsg("De connectie met de FTP-server '"+THISFORM.txtFTPserver.Value+"' is geslaagd","Connectie geslaagd","I") THISFORM.Ftp.FTPclose()ELSE* Connectie mislukt AppMsg("De connectie met de FTP-server '"+THISFORM.txtFTPserver.Value+"' is mislukt. WinInet Error code: "+TRIMSTR(lnResult),"Connectie mislukt","X")RETURN .F.ENDIF
This second statement fails (resultcode 12003), of course without changing the input values for the text-fields between the 2 calls.
lnResult=THISFORM.Ftp.FTPsendfile(ALLTRIM(THISFORM.txtFTPserver.Value),lcFile,JUSTFNAME(lcFile),;ALLTRIM(THISFORM.txtUserID.Value),ALLTRIM(THISFORM.txtPassword.Value))