VB得到指定文件夹下的文件列表

代码如下：

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

摘自：网络整理

---

相关文章参考：

※VB FTP操作类(可上传、下载、创建文件夹等等)

※VB 删除带子文件夹和文件的文件夹※

※用treeview遍历文件夹（vb）※

※VB 将文件夹复制到指定目录※

※VB 详细枚举指定目录、文件夹文件列表※

※VB删除带子文件夹和文件的文件夹

※VB 打开文件夹,并选中指定的文件

※得到指定文件夹下的文件列表