miaozk2006

Function GetFileList(ByVal Path As String, ByRef FileName() As String, Optional fExp As String = "*.*") As Boolean
    Dim fName As String, i As Long
    If Right$(Path, 1) <> "" Then Path = Path & ""
    fName = Dir$(Path & fExp)
    i = 0
    Do While fName <> ""
        ReDim Preserve FileName(i) As String
        FileName(i) = fName
        fName = Dir$
        i = i + 1
    Loop
    If i <> 0 Then
        ReDim Preserve FileName(i - 1) As String
        GetFileList = True
    Else
        GetFileList = False
    End If

End Function

Private Sub Command1_Click()
    Dim FileName() As String, i As Long
    GetFileList "c:", FileName, "*.mp3" '¿ÉÒÔÉèÖÃÎļþÀàÐÍ
    For i = 0 To UBound(FileName)
        Print FileName(i)
    Next i

End Sub