如何将指定文件夹及其子目录下所有扩展名为.EXE .MP3 .WMV 的文件添加到list中！

Question

如何将指定文件夹及其子目录下所有扩展名为.EXE .MP3 .WMV 的文件添加到list中！

Answer 1

用FSO对象啊，先获得FOLDER对象再获得FILES集合，然后就FOR EACH看文件名是否匹配。

Answer 2

用FSO对象，Public Sub AddList(pDir As String, pExtName As String)
    Dim uuFso, uuDir, uuFiles, uuObj    Set uuFso = CreateObject("Scripting.FileSystemObject")
    Set uuDir = uuFso.getfolder(pDir)
    Set uuFiles = uuDir.Files
    
    For Each uuObj In uuFiles
        Select Case UCase(uuFso.GetExtensionName(uuObj.Name))
            Case UCase(pExtName) '"EXE", "MP3", "WMV "
                List1.AddItem uuObj.Name
            Case Else
        End Select
    Next
End Sub