[HELP]判断目录有几个文件


这是用INET控件设计的FTP管理器的一个部分,
首先我们下载控件上的文件列表到数组FILES(),
然后计算列表里有几个文件,才能添加到list1列表中.
部分代码:
Private Sub List1_DblClick()
    Dim lb As String, a As Integer
    Dim i As Integer, b As Integer
    On Error Resume Next
    lb = liebiao '将下载到的字符串赋值给LB
    'for循环,这里有一个问题
    '我是用下面的循环语句统计下载列表的文件数量,这样本身就有缺陷
    '例如字符串:"admin/adminlogin.asp",一个目录一个文件,我所说的缺陷就是如果文件是一个无效的文件,例如:admin/adminlogin
    '那只能统计一个有效的文件夹了,请问还有什么更好的方法???
    '帮忙修正下代码在哪出错,打开二级目录就无法下载到列表框了
    For b = 1 To Len(lb)

        If Mid(lb, b, 1) = "/" Or Mid(lb, b, 1) = "." Then a = a + 1
        
    Next
   
    ReDim Files(a) As String
    Files = Split(lb, vbCrLf)
    List1.Clear
    '添加文件到LIST1
    For i = 0 To a - 1
        List1.AddItem Files(i)
    Next
   
End Sub

'函数下载文件
Private Function liebiao() As String
    On Error Resume Next
    Inet1.Execute "", "dir " & List1
    While Inet1.StillExecuting

        DoEvents

    Wend

   
    liebiao = Trim(Inet1.GetChunk(1024, 0))
End Function