VB使用inet控件进行FTP文件传输

原创 小姚  2023-10-25 19:45  阅读 74 次
'大文件传输不太适合
'添加intl控件
 
Private Sub Command1_Click()
Inet1.Protocol = icFTP
Inet1.RemoteHost = "60.***.***.***" '服务器地址
Inet1.RemotePort = 21 'FTP端口
Inet1.UserName = "username" '用户名
Inet1.Password = "userpass" '密码
Print "开始"
'下载文件:
Inet1.Execute "", "GET /adfile/1.txt d:\下载的.txt"
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Print "结束"
End Sub
 
Private Sub Command2_Click()
 
Inet1.Protocol = icFTP
Inet1.RemoteHost = "60.***.***.***" '服务器地址
Inet1.RemotePort = 21 'FTP端口
Inet1.UserName = "username" '用户名
Inet1.Password = "userpass" '密码
 
Print "开始"
'上传文件:
Inet1.Execute "", "PUT d:\1.txt /adfile/1.txt"
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Print "完成"
End Sub
本文地址:https://www.xiaoyaogzs.com/4047.html
关注我们:请关注一下我们的微信公众号:扫描二维码小姚工作室的公众号,公众号:小姚户外
版权声明:本文为原创文章,版权归 小姚 所有,欢迎分享本文,转载请保留出处!
NEXT:已经是最新一篇了

发表评论


表情