用VB6写简单的FTP上传程序

原创 2007年09月20日 16:38:00

最近在想用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好些,但是我还不太了解,目前还不知道两者间的区别和优略,继续研究……
 
版权声明:本文为博主原创文章,未经博主允许不得转载. dawngrp.com

VB6 FTP 上传 下载 源代码

  • 2016年11月23日 13:09
  • 5KB
  • 下载

vb6 winhttp 上传文件

winhttp 上传文件到web服务器

在VB6中写的一个发送简单邮件的类

在VB6中写的一个发送简单邮件的类 Option Explicit Private cdoMessage As CDO.Message Private Const cdoSendUsingM...
  • kirawoo
  • kirawoo
  • 2014年08月21日 16:06
  • 560

简单内网聊天程序(VB6)之源码

  • 2008年09月09日 00:11
  • 574KB
  • 下载

VB6实现简单的扫雷小游戏

VB实现简单的扫雷小游戏扫雷这个小游戏可谓是简单又好玩,百万不腻,不知道有没有小伙伴跟博主一样脑热的曾经扫过一整个屏幕的雷。。。今天呢,博主在这里总结一下自己做扫雷小游戏的主要过程以及主要思路,当然实...

COM与.NET交互简单示例--追忆VB6

导读:本文以VB6为例,主要介绍.NET引用COM和COM引用.NET的两个简单示例。

2、P2P开发历程之——vb6之P2P简单实现(服务端)

1、服务端 一个FORM,4个textbox:text1,text2.text3.text4,一个richtextbox:rText1,两个winsock控件:WskMsgRcv,WskMsgSen...
  • icbyboy
  • icbyboy
  • 2012年12月15日 09:08
  • 1160

win7(64位)下的某些文件,用VB6开发的程序无法判断是否存在

我用VB6开发的程序,想在WIN7(64位)上运行,其中有个功能是查找WIN7(64位)系统目录下的某个文件是否存在。 结果发现,那个文件确实存在,但程序就是提示找不到文件,同样的程序在XP下运行没...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB6写简单的FTP上传程序
举报原因:
原因补充:

(最多只允许输入30个字)