VB Inet 传输问题

Question

用inet控件传输文件到FTP时,保持这个状态不变:icReceivingResponse
大家知道原因吗,帮帮忙,谢谢

Answer 1

我使用的是execute方法

Answer 2

   CommonDialog1.Flags = cdlOFNFileMustExist
    CommonDialog1.FileName = Trim(Adodc1.Recordset.Fields("货物名称")) & ""
    CommonDialog1.Filter = "图片文件 (.JPEG)|*.jpg"
    CommonDialog1.Flags = cdlOFNNoLongNames
    CommonDialog1.Flags = cdlOFNOverwritePrompt
    CommonDialog1.CancelError = True
    CommonDialog1.CancelError = True
    On Error GoTo line1
    CommonDialog1.ShowSave    Call 自动检查文件夹
    Inet1.URL = "192.168.0.109"
    Inet1.Protocol = icFTP
    Inet1.UserName = "用户名"
    Inet1.Password = "密码"    Inet1.Execute "", "get  /图片资源/" & Adodc1.Recordset.Fields("序号") & ".jpg  c:\临时文件夹\1.jpg"    Label12.Caption = "正在下载，请稍候……"
    Frame5.Visible = True
    Do While Inet1.StillExecuting
        DoEvents
    Loop
    Frame5.Visible = False    Inet1.Execute , "QUIT"    str1 = "c:\临时文件夹\1.jpg"
    str2 = CommonDialog1.FileName
    If Dir(str2) <> "" Then
        Kill str2
    End If
    FileCopy str1, str2
    Kill str1
    MsgBox "下载完毕!", vbInformation + vbOKOnly, "提示"给你一个例子，参考一下