求：wininet对ftp函数的各种封装，尤其是上传函数？

求：wininet对ftp函数的各种封装，尤其是上传函数？
以下wininet对ftp的下载函数，经测试，很好用！求上传函数！！！

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

以上代码出自版主吹水佬，用来从服务器上下载文件
求：wininet对ftp函数的各种封装，尤其是上传函数？