高手帮忙解决，40分继续追答案！！

Question

On Error GoTo Errorftp
Inet1.Protocol = icFTP
Inet1.URL = "ftp://7827.rrvv.net/"
Inet1.RemotePort = 21
Inet1.UserName = "7827" 'FTP空间账号
Inet1.Password = "123456"  'FTP空间密码
Inet1.Execute "", "get ftp.drv e:/ftp.drv" '下载ftp.txt到E盘 Inet1.Execute "", "get ftp_.drv e:/ftp_.drv" '和下载ftp_.drv到E盘 为什么同时这样加入这段代码不可以下载这个文件？   
 right1 = Inet1.StillExecuting
    Do While right1
       right1 = Inet1.StillExecuting
       DoEvents
    Loop
    MsgBox "下载完成！"
  End
    Exit Sub
Errorftp:
    MsgBox "下载失败！"
End Sub如何同时利用INET1下载两个文件？这样加进去代码好像无效下载不了! 
Inet1.Execute "", "get ftp.drv e:/ftp.drv" '下载ftp.txt到E盘 Inet1.Execute "", "get ftp_.drv e:/ftp_.drv"  '和下载ftp_.drv到E盘 为什么同时这样加入这段代码不可以下载这个文件？   

Answer 1

第一个文件没有下载完你就下载第二个文件,当然下载不下来.........
Inet1.Execute "", "get ftp.drv e:/ftp.drv"
Do While Inet1.StillExecuting  
    DoEvents 
Loop 
Inet1.Execute "", "get ftp_.drv e:/ftp_.drv"
Do While Inet1.StillExecuting
    DoEvents 
Loop 
MsgBox "下载完成！" 
..........

Answer 2

再定义一个Inet应该可以同时下两个吧。

Answer 3

把Inet定义成数组，然后在代码中load Inet(i)就OK了。

Answer 4

方法1：在窗体上拖进来一个inet控件，一般名称为inet1，然后再拖一个inet控件，一般名称为inet2，这样就可以了。就可以用两个了。
方法2：在窗体上拖进来一个inet控件，一般名称为inet1，然后再拖一个inet控件，一般名称为inet2，修改inet2名称为inet1,会弹出是否创建控件数组，选择是,然后删除后添加的inet1(1)控件。
然后在窗体加载事件中写如下代码：load inet(i),i为大于0的任意整数。这样就可以了。

Answer 5

还要代码？？？一共就一句。load inet(i)，或者根本就不用。

Answer 6

On Error GoTo Errorftp 
Inet1.Protocol = icFTP 
Inet1.URL = "ftp://7827.rrvv.net/" 
Inet1.RemotePort = 21 
Inet1.UserName = "7827" 'FTP空间账号 
Inet1.Password = "123456"  'FTP空间密码 
Inet1.Execute "", "get ftp.drv e:/ftp.drv"
right1 = Inet1.StillExecuting 
    Do While right1 
      right1 = Inet1.StillExecuting 
      DoEvents 
    Loop 
Inet1（i）.Execute "", "get ftp_.drv e:/ftp_.drv" 
right1(1) = Inet1(1).StillExecuting 
    Do While right1 
      right1 = Inet1.StillExecuting 
      DoEvents 
    Loop 
    MsgBox "下载完成！" 
  End 
    Exit Sub 
Errorftp: 
    MsgBox "下载失败！" 
End Sub 

Answer 7

如何在加上一个 “进度条”？或者加一个LABEL1
LABEL1.caption = 0% 的内容跟着下载变化增加！下载完成后LABEL1.caption = 100%