VB6.0 遍历文件夹 & 遍历文件夹里文件 & 拷贝文件

Public Sub Search_folder(folder As String)                                      '遍历指定文件夹下的所有文本夹
    Dim path
    Dim filename
    Dim folders(1 To 20000)
    Dim i%, j%
    i = 1
    j = 1
    
    '先获取所有的文件夹
    path = folder
    folders(1) = path
    
    Do While i <= j
        filename = Dir(folders(i), vbDirectory)
        Do Until filename = ""
            If InStr(filename, ".") = 0 Then
                j = j + 1
                
                folders(j) = folders(i) & filename & "\"
            End If
            filename = Dir
        Loop
        i = i + 1
    Loop
    
    For p = 1 To UBound(folders)
        If folders(p) <> "" Then
            Debug.Print (folders(p))
            Search_file_in_folder (folders(p))
        End If
    Next
End Sub

Function Search_file_in_folder(folder_name As String)                           '遍历指定文件夹下的所有文本文件
    Dim Files() As String
    Dim a As Integer
    FileType = "*.pdf"
    sPath = Dir(folder_name & FileType)                                         '查找第一个文件
    
    Do While Len(sPath)                                                         '循环到没有文件为止
        a = a + 1
        ReDim Preserve Files(1 To a)
        Files(a) = path & sPath                                                 '将文件目录和文件名组合,并存放到数组中
        
        ret = CopyFile(folder_name & Files(a), "C:\abc\" & Files(a), 0)
        
        sPath = Dir                                                             '查找下一个文件
        DoEvents                                                                '让出控制权
    Loop
End Function