当前位置:编程学习 > VB >>

关于inet下载文件提示仍在执行上一请求的问题,在线等。

想用inet控件实现ftp的下载,可是用此用户登录需要返回到父目录再进入需要访问的文件夹,代码如下,无法实现下载,如访问我使用的用户的文件夹就可以。
Inet1.URL = "192.168.2.1"
Inet1.UserName = "he"
Inet1.Password = "zz123"
Inet1.AccessType = icUseDefault  '设置与Internet连接的类型,默认值
  Inet1.Protocol = icFTP
  Inet1.RemotePort = 21
     
    Inet1.Cancel
    Inet1.Execute , "CD.. "
 Do While Inet1.StillExecuting
  DoEvents
Loop
    
    Inet1.Execute , "GET " & "/he8c/111.jpg/" & App.path & "\111.jpg"
    Do While Inet1.StillExecuting
        DoEvents
    Loop
    Inet1.Execute , "close"
    Inet1.Execute , "quit"
    If Dir(App.path & "\111.jpg") = "" Then
    MsgBox ("CAN NOT FIND THE TESTDATA")
    'Label3.Caption = "下载成功"
  Else
  MsgBox ("下载成功!")
  End If --------------------编程问答-------------------- 看到的帮忙分析一下。谢谢。 --------------------编程问答-------------------- 没有人知道吗? --------------------编程问答-------------------- 查了好多帖子都不行。
补充:VB ,  控件
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,