实现FTP上传功能、

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

 'FTP服务器定义
    Dim shuju, shuju2 As String
    Const Str_FtpServer As String = "ftp://chinxn.vipkj.com/web/chinxn/cdata"
    Const Str_FtpServer_jyw As String = "ftp://chinxn.w1.i93133.com/wwwroot/cdata"
    Private Str_Username As String = "xxx"
    Private Str_Password As String = "xxx"
    Private fuwuqiname As String