vb60ftp

‘壹’ VB6.0 FTP下载上传问题【可加分！】

首先介绍ftp下载，代码如下： Const Str_FtpServer As String = " ftp://ftp.lob.cn" Private Str_Username As String = "lob" Private Str_Password As String = "xxxxxxxx" Private Sub DownloadFile(ByVal Str_Path As String) Try Dim Str_Filename As String = Str_Path Dim ftpReq As FtpWebRequest = WebRequest.Create(Str_Filename) ftpReq.Method = WebRequestMethods.Ftp.DownloadFile ftpReq.Credentials = New NetworkCredential(Str_Username, Str_Password) Dim FTPResp As FtpWebResponse = ftpReq.GetResponse Dim ftpRespStream As Stream = FTPResp.GetResponseStream 'FTPResp.StatusDescription 为回显状态的描述 可用于调试 ftpRespStream.Save("d:\lobdotcn.rar") '保存到本地的路径,如果你乐意也可以直接定义到参数中 FTPResp.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub 调用方式：DownloadImage(Str_FtpServer& "/logo.jpg")==============================================================你先看看是你想要的不？是的话再往下看从这里过来的： http://blog.chinaunix.net/u/22170/showart_475726.html 呵呵我是做C#的，但是看你这分数实在太诱人，就帮你找了找~

记得采纳啊

‘贰’ vb6.0调用cmd上传文件到ftp服务器,急!

外部调用ftp 指令不用手动输入命令是不可能的，因为ftp指令没有提供过多的命令行参数，可以这样
创建Internet Transfer 控件
inter.execute ftpAddress,"send " & LocalFilePaht & " " & RemoteName
这样就能上传了
当然如果ftp是有密码的那地址要改一下
就是
ftp://UserName:PassWord@FTPAddress
就是这样的了

‘叁’ VB6.0 FTP下载上传问题【可加分！】

要用到Microsoft Internet Transfer Control 6.0控件：

Private Sub Command1_Click()
Inet1.Execute "ftp://123:[email protected]", "get 123.exe d:\123.exe" '下载123.exe文件到d:\
End Sub

Private Sub Command2_Click()
Inet1.Execute "ftp://123:[email protected]", "put d:\123.exe 123.exe" '上传d:\123.exe到服务器
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then Inet1.Execute , "close" '如果下载或上传完毕则关闭FTP连接
End Sub

其中要用到的URL格式为：
ftp://用户名:密码@域名或IP地址:端口号
FTP命令格式：
下载： get 服务器目录名/.../文件名 本地文件名
上传： put 本地文件名 服务器目录名/.../文件名

‘肆’ vb如何实现FTP下载

Call Inet1.Execute(,"put 本地地址\文件名 ftp地址\文件名")‘上传ftp文件代码
Call Inet1.Execute(,"get ftp地址\文件名 本地地址\文件名")’下载ftp文件代码
你要在inet1的自定义中设置好

‘伍’ VB与FTP编程

建议楼主用winsock连接FTP服务器，发送FTP命令来实现交互，另外说明下，目录的获取与文件的传输是另开端口进行的，以下是命令表
ftp协议命令字（转）

命令 描述
ABOR 中断数据连接程序
ACCT <account> 系统特权帐号
ALLO <bytes> 为服务器上的文件存储器分配字节
APPE <filename> 添加文件到服务器同名文件
CDUP <dir path> 改变服务器上的父目录
CWD <dir path> 改变服务器上的工作目录
DELE <filename> 删除服务器上的指定文件
HELP <command> 返回指定命令信息
LIST <name> 如果是文件名列出文件信息，如果是目录则列出文件列表
MODE <mode> 传输模式（S=流模式，B=块模式，C=压缩模式）
MKD <directory> 在服务器上建立指定目录
NLST <directory> 列出指定目录内容
NOOP 无动作，除了来自服务器上的承认
PASS <password> 系统登录密码
PASV 请求服务器等待数据连接
PORT <address> IP 地址和两字节的端口 ID
PWD 显示当前工作目录
QUIT 从 FTP 服务器上退出登录
REIN 重新初始化登录状态连接
REST <offset> 由特定偏移量重启文件传递
RETR <filename> 从服务器上找回（复制）文件
RMD <directory> 在服务器上删除指定目录
RNFR <old path> 对旧路径重命名
RNTO <new path> 对新路径重命名
SITE <params> 由服务器提供的站点特殊参数
SMNT <pathname> 挂载指定文件结构
STAT <directory> 在当前程序或目录上返回信息
STOR <filename> 储存（复制）文件到服务器上
STOU <filename> 储存文件到服务器名称上
STRU <type> 数据结构（F=文件，R=记录，P=页面）
SYST 返回服务器使用的操作系统
TYPE <data type> 数据类型（A=ASCII，E=EBCDIC，I=binary）
USER <username>> 系统登录的用户名

标准 FTP 信息如下：

响应代码 解释说明
110 新文件指示器上的重启标记
120 服务器准备就绪的时间（分钟数）
125 打开数据连接，开始传输
150 打开连接
200 成功
202 命令没有执行
211 系统状态回复
212 目录状态回复
213 文件状态回复
214 帮助信息回复
215 系统类型回复
220 服务就绪
221 退出网络
225 打开数据连接
226 结束数据连接
227 进入被动模式（IP 地址、ID 端口）
230 登录因特网
250 文件行为完成
257 路径名建立
331 要求密码
332 要求帐号
350 文件行为暂停
421 服务关闭
425 无法打开数据连接
426 结束连接
450 文件不可用
451 遇到本地错误
452 磁盘空间不足
500 无效命令
501 错误参数
502 命令没有执行
503 错误指令序列
504 无效命令参数
530 未登录网络
532 存储文件需要帐号
550 文件不可用
551 不知道的页类型
552 超过存储分配
553 文件名不允许

‘陆’ VB6.0下下载FTP上指定文件的文件的模块，或类，或dll

FTP操作模块

'文件下载示例：

Private Sub Form_Load()
Dim FTP As FTP
Set FTP = New FTP

Call FTP.Connect("127.0.0.1", 21, "username", "password")
Call FTP.GetFile("/wwwroot/index.asp", "c:abcd.asp")

Set FTP = Nothing

End Sub