实现FTP上传功能、

 '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