关于下载问题

Question

采用bkDLControl.ocx下载网站上的文件，事先取得了需要下载的文件名存放于list1中，然后我用下面方法去一个个下载：
List1.ListIndex = 0
If List1.Text = "new" Then
    For i = 1 To List1.ListCount - 2
        List1.ListIndex = i
        DL.FileURL = URL.Text & List1.Text
        DL.SaveFilePath = App.Path
        DL.BeginDownload
   Next
End If这样只能下载最后一个文件，但是如果在List1.ListIndex = i之后加一个msgbox 信息，这样就可以把所有的文件下载下来，请问是什么原因？

Answer 1

应该是利用循环，DL还没有下载完一个就开始另外一个下载了。你可以看看帮助文档这个控件有没有下载完成的事件。在这个完成事件里面开始另外一个下载。