VB 关于FTP的传输方法问题

2017-07-28 08:06:17 321 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值) VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值) 欢迎使用Markdown编辑器你好！这是你第一次使用 Markdown编辑器所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。新的改变我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：全新的界面设计，将会带来全新的写作体验；阅读详情

是基于 autoCad的二次开发
用的是inte控件
一开始使用的是execute发送指令来传输文件
但是发现这个是多线程的方法。不容易获得我想要的传输情况的信息
意思就是说我下载完这个文件之后，立马要对文件进行操作的
但是这个方法下载的文件，还没有下载完，我就已经在对这个文件进行操作了
显然不能达到我的要求

有一个openURL的单线程方法
但是我在openURL string，1之后
inte1的参数，responseInfo返回的字符串为空
一般不应该是“该文件存在。”吗？
文件也木有正常的被读取

希望有个具体示例代码看看

...全文

网络编程练习 ftp 文件传输题目一：文件传输软件名：MYFTP（分服务器端和客户端两部分）功能：实现类似FTP的功能（在FTP服务器与客户端之间传送文件）。编程语言及工具：自选（如VB、JAVA、C#、Delphi、VC）描述：服务器端：1．指定一个目录作为FTP目录（之后所有的文件操作均在此目录下进行）， 2．接收客户端的命令请求并提供相应的服务。客户端：完成与FTP用户的人机阅读详情

Mike_Squall

VBA 2,506 成员 10,830 内容

+ 关注 + 加入社区

切换为时间正序

赵4老师 2017-08-02

打赏
举报

仅供参考：

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   3060
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3060
   ScaleWidth      =   4035
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1
      Caption         =   "下载"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
   Begin InetCtlsObjects.Inet Inet1
      Left            =   -15
      Top             =   -15
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ExeStr As String
Dim Done As Boolean
Private Sub cmd(cmdstr As String)
    Do
        If Inet1.StillExecuting = False Then Exit Do
    Loop
    ExeStr = cmdstr
    Done = False
    Debug.Print ExeStr; "="
    Inet1.Execute , ExeStr
    Do
        DoEvents
        If Done Then Exit Do
    Loop
End Sub
Public Sub ReadNewVox(vox As String)
    Inet1.URL = "ftp://192.168.30.188"
    Inet1.UserName = "user0001"
    Inet1.Password = "password"

    'cmd "PWD"
    'cmd "CD ../../0077/125907777/vox/BBSMsg"
    'cmd "DIR"
    'cmd "GET " + vox + ".VOX " + App.Path + "\" + vox + ".VOX"

    cmd "GET ../../0077/125907777/vox/BBSMsg/" + vox + ".VOX " + App.Path + "\" + vox + ".VOX"

    cmd "QUIT"
End Sub

Private Sub Command1_Click()
    Command1.Enabled = False
    ReadNewVox ("00000021")
    Command1.Enabled = True
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim intFile As Integer
Dim vtData() As Byte
Dim str As String
'On Error GoTo ISCerr
    Debug.Print "State="; State,
    Select Case State
    Case 0
        Debug.Print "icNone"
    Case 1
        Debug.Print "icHostResolvingHost"
    Case 2
        Debug.Print "icHostResolved"
    Case 3
        Debug.Print "icConnecting"
    Case 4
        Debug.Print "icConnected"
    Case 5
        Debug.Print "icRequesting"
    Case 6
        Debug.Print "icRequestSent"
    Case 7
        Debug.Print "icReceivingResponse"
    Case 8
        Debug.Print "icResponseReceived"
        If Left(ExeStr, 2) = "CD" Then Done = True
    Case 9
        Debug.Print "icDisconnecting"
    Case 10
        Debug.Print "icDisconnected"
        Done = True
    Case 11
        Debug.Print "icError of [" + ExeStr + "]="; Inet1.ResponseInfo
        Done = True
    Case 12
        Debug.Print "icResponseCompleted----------------"
        Do
            str = Inet1.GetChunk(1024, icString)
            If LenB(str) = 0 Then Exit Do
            Debug.Print str
        Loop
        Done = True
    End Select
    Exit Sub
ISCerr:
    Resume Next
End Sub

threenewbee 2017-08-01

打赏
举报

用inet控件，都封装好了。

of123 2017-08-01

打赏
举报

我不管过不过时，好用我就用。我做一个新工具两小时。他做同样功能的工具两天。他愿意进取随他。

VB 关于FTP的传输方法问题

相关推荐