用VB6写简单的FTP上传程序

最近在想用VB写个FTP上传 的ACTIVEX控件，于是现学现用，网上找了很多资料，其中有一篇VB实现FTP上传的文章讲了一个利用Inet实现的方法和示例，于是自己也参照做了一个，功能还不完善，只能实现基本的上传能力。

首先，在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不好，用Winsock好些，但是我还不太了解，目前还不知道两者间的区别和优略，继续研究……