'cols 文件path集合'filePath 需要展示的文件夹PATH'Regex 过滤文件'Recursive 是否显示子文件夹下文件Function GetAllFilePathByRegExp(cols As Collection, filePath As String, Optional Regex As String = ".*", Optional Recursive As Boolean = False) As Collection
If InStrRev(filePath, "\")Len(filePath) And FileExists(filePath) = False Then
file...