pcl_test

回复 9# mingjianko


    举个栗子

'列举当前目录下指定类型的文件
Set fso = CreateObject("scripting.filesystemobject")
Set files = fso.GetFolder(".").Files
For Each file In files
    ext = LCase(fso.GetExtensionName(file))
    Select Case ext
        Case "txt","png"    '指定扩展名（文件类型）
            f = f & file &vbCrLf
    End Select
Next
Msgbox f
复制代码