VB利用Inet控件实现FTP中的一些问题

Question

本帖子只能100分，各位大侠如能解决问题的，我再开4个帖子，再送出400分，绝不食言。先看代码吧，很简单，只贴出部分代码。
'点击按钮，遍历FileListBox中的文件
Private Sub Command1_Click()
    With Inet1
        .URL = "ftp://10.65.73.171"
        .UserName = "administrator"
        .Password = "dqytoa060420"
        .Protocol = icFTP
        .RequestTimeout = 120
    End With
    For i = 0 To File1.ListCount - 1
        Call Inet1.Execute(, "put """ + File1.Path + "\" + File1.List(i) + """ ftp\" + File1.List(i))    '三个双引号解决路径中存在空格的问题
        Dim Doing As Boolean
        Doing = Inet1.StillExecuting
            Do While Doing
                Doing = Inet1.StillExecuting
                DoEvents
            Loop
    Next
End Sub程序一般情况下可以正常运行，但是，在传输大量文件时（有时候20个左右，有的时候10多个，每个文件100K左右），传输到某个文件就卡住了，因为我有一个text，里面显示正在传输第几个。但是现在传输的时候，不一定第几个文件就卡住了，无规律。而且我看了下ftp服务器，的确到这个出问题的文件和之后准备上传的文件都没有。可以排除文件损坏，网络的因素。请高手帮忙。

Answer 1

呵呵，楼上的高手，我说话不食言，希望能指教。http://topic.csdn.net/u/20110510/15/dbd51791-391a-4e9e-a3d7-835c3e54cd5e.html这个是另一个帖子，呵呵

Answer 2

利用Inet控件的事件进行控制就好了。

Answer 3

请参考 http://blog.csdn.net/z_wenqian/archive/2011/04/28/6368842.aspx 中的 Inet_StateChanged , 将报告状态写入文件中，看看到底是什么问题。我也碰到过卡住的情况，当时是因为网不通了，请在看看卡住时的网络状态。