Question

如何在VB中实现FTP单个文件上传？

做好的效果就像以下这张图片一样就满意了··
----------------
比如我的虚拟主机的地址是：192.168.1.1
用户名：abcd
密码：123

只要我打开VB做好的这个程序它就自动登陆了···不需要我手动填这些·

然后 选择 “浏览”按钮-然后在电脑里面选一个需要上传的文件，然后确定即可上传。。。

最好你帮我做好·把源码发到我的邮箱：375420408@qq.com

答的好我给我所有的分给你·。··。·
是的··如果没人回答上帝将会把分送给你！
===============================
对了··如果还能弄一个进度条 上去那上帝可就爱死你了··搞不定也没关系，能搞定前面的就很不错了。··上帝会保佑你一生平安！！

========================================

二楼 的回答还是不行哇·····都已经上传完毕了 ··都是我的空间里面还是没有文件··不知道是什么回事······

等待下一个答案！

Answer 1

添加CommonDialog控件和IntenetTrasfer控件，代码如下：

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Inet1.Protocol = icFTP
Inet1.RemoteHost = "192.168.1.1" '服务器地址
Inet1.RemotePort = 21 'FTP端口
Inet1.UserName = "abcd" '用户名
Inet1.Password = "123" '密码
Print "开始"
'上传文件:
Inet1.Execute "", "PUT " & CommonDialog1.FileName & "/wwwroot/" & CommonDialog1.FileTitle
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Print "完成"
End Sub

这么简单就不用发源代码给你了吧 ：)

Answer 2

我已经发到你的邮箱了··

Answer 3

靠～
你是上帝！