VB 关于FTP的传输方法问题

[Mike_Squall]

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


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

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

[of123]

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

[threenewbee]

用inet控件，都封装好了。

[赵4老师]

仅供参考：

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