Ricky,

You can try ready FTP Class for VFP 5.0+ File #9442. It includes source code and samples.

>All,
>
>I want to FTP some XML file to Taiwan everyday. But I get fail when doing "FtpPutFile".
>What is my stort in my code?
>Give me your suggestion.
>
>***************************************************************
>DECLARE Integer InternetOpen IN WinInet String @lpcAgent, Integer nAccessType, String @lpcProxyName, ;
>String @lpcProxyBypass, Integer nFlags
>
>DECLARE Integer InternetConnect IN WinInet ;
>Integer nInet_Handle, String @lpcServer, Short nPort, String @cUserName, String @cPassword, Integer ;
>nService, Integer nFlags, Integer nContext
>
>DECLARE Integer FtpPutFile IN WinInet Integer FtpHandle, String @NewFile, String @RemoteFile, Integer ;
>nFlags, Integer nContext
>
>#DEFINE cNull CHR(0)
>
>**
>cHostName = "888.88.8.8" + cNull
>cUserName = "ftpuser" + cNull
>cPassWord = "ftpuser" + cNull
>FtpAgent = "FTP Agent by me"
>
>InternetHandle = InternetOpen((FtpAgent), 1, cNull, cNull, 0)
>
>FtpHandle = InternetConnect(InternetHandle, (cHostName), 21, (cUserName), (cPassword), 1, 0, 0)
>
>localFile = "c:\2.txt" + cNull
>RemoteFile = "/SSIS/2.txt" + cNull
>
>nResult = FtpPutFile(FtpHandle, @localFile, @RemoteFile, 2, 0)
>
>IF nResult = 1
>=messagebox("OK!")
>else
>=messagebox("Fail!")
>endif
>
>
>
>Ricky