急!用VB代码实现FTP的上传和下载(高分)
如题,我想用VB代码实现对FTP的上传和下载.在网上找到了个方法.这个方法是用INTERNET传输控件来实现的.添加了INTERNET传输控件后VB代码如下"'初始化控件...
如题,我想用VB代码实现对FTP的上传和下载.在网上找到了个方法.
这个方法是用INTERNET传输控件来实现的.
添加了INTERNET传输控件后VB代码如下"
'初始化控件的属性:
With Inet1
.URL = "ftp://192.168.0.50"
.UserName = "user"
.Password = "123"
.Protocol = icFTP
.RequestTimeout = 120
End With
,在FTP根目录下创建文件夹abc
Call Inet1.Execute(, "mkdir abc")
,在FTP根目录下载123.txt到D盘
Call Inet1.Execute(, "get 123.txt d:\123.txt")
'把d:\123.txt上传到FTP根目录
Call Inet1.Execute(, "put d:\123.txt 123.txt")
'把d:\123.txt上传到FTP根目录
Call Inet1.Execute(, "send d:\123.bmp")
这些都是网络上下载的代码,但是实现起来put和send两个方法却毫无作用?!而mkdir创建文件夹的方法是有作用的,所以不存在FTP无法写入的问题.
另外"put d:\123.txt 123.txt"和"send d:\123.bmp"我在DOS下运行都有作用的.命令格式应该都没错的.
请教各位大虾这究竟是什么回事啊?到底是哪里弄错了??
或者有什么其他用VB代码实现FTP上传下载的好方法介绍下,谢谢了! 展开
这个方法是用INTERNET传输控件来实现的.
添加了INTERNET传输控件后VB代码如下"
'初始化控件的属性:
With Inet1
.URL = "ftp://192.168.0.50"
.UserName = "user"
.Password = "123"
.Protocol = icFTP
.RequestTimeout = 120
End With
,在FTP根目录下创建文件夹abc
Call Inet1.Execute(, "mkdir abc")
,在FTP根目录下载123.txt到D盘
Call Inet1.Execute(, "get 123.txt d:\123.txt")
'把d:\123.txt上传到FTP根目录
Call Inet1.Execute(, "put d:\123.txt 123.txt")
'把d:\123.txt上传到FTP根目录
Call Inet1.Execute(, "send d:\123.bmp")
这些都是网络上下载的代码,但是实现起来put和send两个方法却毫无作用?!而mkdir创建文件夹的方法是有作用的,所以不存在FTP无法写入的问题.
另外"put d:\123.txt 123.txt"和"send d:\123.bmp"我在DOS下运行都有作用的.命令格式应该都没错的.
请教各位大虾这究竟是什么回事啊?到底是哪里弄错了??
或者有什么其他用VB代码实现FTP上传下载的好方法介绍下,谢谢了! 展开
展开全部
要实现在这个代码太多,在这里发有点不太现实,VB 实现 FTP 用 WinSock 控件或API。做该类程序主要是握手控制,即返回值的处理并做相应传输,另外就是了解每个 FTP 命令的作用,这样做个 FTP 服务端或客户端都不是什么难事。参考书籍:《Visual Basic网络通信协议分析与应用实现》,该书详细讲解多种 VB 的 FTP 实现与高级开发。篇幅很大
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不好意思, 我试了, 我这好用, 可以打包个工程文件给我吗?
MSN : luxun1984@hotmail.com
MSN : luxun1984@hotmail.com
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询