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

最新推荐文章于 2023-02-28 00:51:51 发布

小鸿叔

最新推荐文章于 2023-02-28 00:51:51 发布

阅读量1.6k

点赞数 1

分类专栏： VB 文章标签： vb string path command function c

本文链接：https://blog.csdn.net/jyh_jack/article/details/2050912

版权

VB 专栏收录该内容

77 篇文章 8 订阅

订阅专栏

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