求 vb6 上传文件至局域网服务器的方法

w360989426 发布于 2014-04-26 16:31， 560 次点击

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

3 回复

vbvcr512014-04-26 17:51

还需要设置端口：Inet1.remoteport=21
再试试

w3609894262014-04-26 21:37

回复 2 楼 vbvcr51

不行啊。。。版主有没有实际的例子，求指导

vbvcr512014-04-26 22:14

Inet1.Execute , "PUT " & CommonDialog1.FileName & "1.txt" 里面的put 改成 send,再试试

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