DECLARE LONG URLDownloadToFileA IN Urlmon LONG, STRING@, STRING@, LONG, LONG
DECLARE LONG DeleteUrlCacheEntry IN Wininet STRING@
IF !DIRECTORY("D:\myfolder")
    MD D:\myfolder
ENDIF
? DownloadFile("ftp://qxu1649560463:su6683111@121.42.122.244\myfolder\test", "D:\myfolder\test")
? DownloadFile("ftp://qxu1649560463:su6683111@121.42.122.244\myfolder\update.exe", "D:\myfolder\update.exe")
CLEAR DLLS

FUNCTION DownloadFile(cURL, cLocalFileName)
    IF URLDownloadToFileA(0, @cURL, @cLocalFileName, 0, 0) == 0
        DeleteUrlCacheEntry(@cURL)
        RETURN .T.
    ENDIF
    RETURN .F.   
ENDFUNC

以上代码出自版主吹水佬，用来从服务器上下载文件
请问，如何用上面的方法，写一个上传文件到服务器的代码？

https://blog.  "WinInet和FTP "
可以参看这个资料,无非是wininet对ftp函数的各种封装,声明好了就拿来用 .

学习了一下，不知道如何申明

WinInet 使用手册谁有，中文版最好

*********上传文本********
Set Library To myFll

hFtp=FtpConnect(FTPip,"username","userpass") &&连接FTP

FtpCreateDir(hFtp,"fordername")  &&创建上传目录

FtpDisconnect(hFtp) &&断开

FtpUploadFile(FTPip,本地文件名,服务器目录+文件名,"username","userpass")

Set Library To

myfll帮助

函数名：FtpUploadFile(cServer,cLocalFile,cRemoteFile [,cUserName [,cPassword]])
缩写：ftpu
向FTP服务器上传文件，注意：windows服务器可以不区分大小写，而且可以同时使用\或/做为路径，而unix系列服务器则是区分大小写，并且路径只能用/来标识

支持VFP回调SetVFPEvents()来获取进度。

返回值：
逻辑值，为真时，上传成功，否则失败
参数：
cServer：字符型，服务器地址，如127.0.0.1，如果非21端口，请用冒号隔开，如192.168.1.1:22
cLocalFile：字符型，本地文件，应包含全部路径。如d:\test.rar
cRemoteFile：字符型，远程文件，应包含相对于根的路径，如www\test.rar
[cUserName：字符型，访问FTP的用户名，如果使用匿名访问，可以省略此参数
[cPassword]：字符型，访问FTP的密码，如果使用匿名访问，可以省略此参数
示例代码
Set Library To myFll

*将d盘的test.rar上传到服务器的www文件夹下：

?FtpUploadFile("127.0.0.1","d:\test.rar","www\test.rar","admin","a123")

Set Library To

感谢各位，正在测试中……