VB上传文件到FTP空间的代码？

在写的个VB程序，

比如：把C盘里面的 1.txt 文件 上传到FTP空间，这段VB的代码怎么写？

用Inet1
先添加microsoft internet transfer control 6.0


Private Sub 上传_Click()
Inet1.URL = IP.Text ' " ftp://61.129.102.38/"
Inet1.Protocol = 2
Inet1.UserName = USER.Text ' "username"
Inet1.Password = ID.Text ' "password"
Inet1.Execute , "PUT " & "c:\1.txt" & " 1.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub

首先，在VB工具栏中添加部件Microsoft Internet Transfer Control 6.0 ，之后工具箱会多一个Inet的控件。

拖放该控件到窗体上，设置控件中的属性

protocol : 2-icFTP RemoteHost : 你的FTP服务IP或域名 RemotePort : 你的FTP端口 URL : 你的FTPURL地址 UserName和Password 这两个就不用说了

当然，也可以在运行时绑定属性。

本例中还需要拖放一个文本筐（txtData）和一个按钮（Command1）

窗体代码部分如下：

Private Sub Command1_Click() Dim isRight As Boolean '定义一个BOOLEAN变量,用于判断是否仍然在执行上传 Dim filestr As String '定义一个字符串变量,用于存储本地文件的路径和文件名,并在后面赋值,当然,正式使用的时候这里是由用户选择文件的路径 filestr = "d:\ctrpatch1229-0829.exe" '调用Inet的execute方法上传文件,第一参数是FTP URL地址,第2个参数是传递参数,字符串型,分为3个部分: 方法+本地文件+上传后文件名 ,FTP上传使用 PUT 命令 Inet1.Execute " ftp://192.168.1.17", "PUT " & filestr & " uploadedfilename.exe" 'put,本地文件路径,上传后的文件名称之间一定要有空格隔开 isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令 '循环检查是否仍然在命令执行,如果仍然还在执行命令,那么将控制权交给系统,这样系统可以分配空闲的处理时间来执行命令 Do While isRight isRight = Inet1.StillExecuting DoEvents Loop End Sub '在调用Inet的Execute方法时会触发该时间,该事件传递一个参数State来返回当前执行状态 '返回的状态值如下: '0 未报告状态icHostResolvingHost '1 控件正在寻找指定主机的IP地址icHostResolved '2 控件已成功找到指定主机的IP地址icConnecting '3 控件正在与指定主机进行连接icConnected '4 控件已成功与指定主机连接icRequesting '5 控件正在向主机发出请求icRequestSent '6 控件已成功向主机发出请求icReceivingResponse '7 控件正在从主机接收反馈信息icResponseReceived '8 控件已成功从主机接受反馈信息icDisconnecting '9 控件正在与主机断开icDisconnected '10 控件已与主机断开icError '11 在与主机通信的过程中发生了错误icResponseComp leted '12 请求结束且数据已经接收到 Private Sub Inet1_StateChanged(ByVal State As Integer) '获取并显示一下当前的执行状态,方便测试 txtData.Text = txtData.Text + CStr(State) '检查当前返回的状态值 Select Case State '如果是12,说明执行完成 Case 12 '以下=号中间的代码我暂时还不知道具体有什么在作用 '============================================== Dim vtData As Variant ' Data variable. Dim strData As String: strData = "" Dim bDone As Boolean: bDone = False ' Get first chunk. vtData = Inet1.GetChunk(1024, icString) Do While Not bDone strData = Data & vtData ' Get next chunk. vtData = Inet1.GetChunk(1024, icString) If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData '=============================================== txtData.Text = "上传完成" End Select End Sub

这个用inet控件比较简单