标题:求 vb6 上传文件至局域网服务器的方法
只看楼主
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
结帖率:84%
已结贴  问题点数:20 回复次数:3 
求 vb6 上传文件至局域网服务器的方法
vb6 用inte上传文件发生无法连接至远程服务器错误,代码如下还请大师指点谢谢诶
Private Sub Command1_Click()
CommonDialog1.ShowOpen

Inet1.URL = "192.168.0.109"
Inet1.Protocol = icFTP
Inet1.UserName = "Administrator"
Inet1.Password = "luting99"
Inet1.Execute , "PUT " & CommonDialog1.FileName & "1.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub
搜索更多相关主题的帖子: 上传文件 服务器 局域网 
2014-04-26 16:31
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
得分:20 
还需要设置端口:Inet1.remoteport=21
再试试
2014-04-26 17:51
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
得分:0 
回复 2 楼 vbvcr51
不行啊。。。版主有没有实际的例子,求指导
2014-04-26 21:37
vbvcr51
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:18
帖 子:364
专家分:1724
注 册:2013-11-3
得分:0 
Inet1.Execute , "PUT " & CommonDialog1.FileName & "1.txt" 里面的put 改成 send,再试试

[ 本帖最后由 vbvcr51 于 2014-4-26 22:16 编辑 ]
2014-04-26 22:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-430681-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.469682 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved