VB6.0 INET控件实现FTP上传文件

wang7655 wang7655 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
各位大虾:

Inet1.Protocol = icFTP
Inet1.URL = "ftp://shenying-china.oicp.net"
Inet1.RemotePort = 21
Inet1.UserName = "shenying"
Inet1.Password = "11111111"
Inet1.Execute , "PUT" & "d:/longzaitian.txt" & " " & "/longzaitian.txt"
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop

Inet1.Execute , "close"
Inet1.Execute , "quit"


这样实现上传,可是为什么到do while 这里一直在循环,到底多少时间可以出来?还是程序有错误?

有人可以告诉我吗?
...全文
评论 8
收藏 已收藏
分享
返回顶部
wang7655
控件 1,453 成员 41,351 内容