VB获取一个文件夹中指定的文件或文件夹名称到列表

'函数：ShowFileList
'功能：获取指定的文件或文件夹到ListBox列表中
'函数参数：
'Folderspec：文件夹路径名称
'fExp：后缀名(扩展名)，为空“”时代表所有文件夹及文件，指定文件格式直接写文件后缀名，如：exe，“.”只获取所有文件名称，“\”只获取所有文件夹名称。
'//
'函数定义代码：
Private Sub ShowFileList(Folderspec As String, Optional fExp As String = “”)
Dim Fpath As String, fName As String
Dim Folder(4) As Object, isFolder As Boolean
Fpath = IIf(Right(Folderspec, 1) <> “”, Folderspec & “”, Folderspec) '判断路径带是否有"",无则在后面添加""
Set Folder(0) = CreateObject(“Scripting.FileSystemObject”)
Set Folder(1) = Folder(0).getfolder(Fpath)
Set Folder(2) = Folder(1).SubFolders
'isFolder = Folder(0).FolderExists(Fpath) '判断是不是文件夹
List1.Clear
'返回文件夹名称
For Each Folder(3) In Folder(2)
If fExp = “” Or fExp = “\” Then
List1.AddItem Folder(3).Name
End If
Next
'返回文件名称
For Each Folder(4) In Folder(1).Files
fName = Folder(0).GetExtensionName(Folder(4))
If fName = fExp Then
List1.AddItem Folder(4).Name
ElseIf fExp = “” Or fExp = “.” Then
List1.AddItem Folder(4).Name
End If
Next
End Sub
'//
'调用
'在Form(窗体)中画一个ListBox及一个Command1,参数为默认。
'代码：
Private Sub Command1_Click()
Dim URL As String
URL = “C:\Users\Administrator\Desktop\21”'文件夹路径
Call ShowFileList(URL, “exe”)
End Sub