我现在测试没问题啊
Dim ftp As new FTPClientftp.Host = "www.kmmq.cn" '"118.126.117.122"ftp.Account = "pdca"ftp.Password = "ceshi123"ftp.OpenManager