[原创]vba_dir文件搜索器

无聊的疯子

使用dir来搜索的,效率并不高,

搜索C盘子文件夹的时候需要提供权限,否则会报错

使用时先设置好参数
F3   :搜索的主路径,  必须是合法的路径,否则会报错的哟~~~ ,后面可以有 \ 也可以没有
F4   :如果为 True 则返回文件夹的名字,为 False 则返回文件名字,文件夹和文件不要搞晕了哦!!!
F5   :匹配条件,使用 like 规则,不明白 like 规则有什么,没关系,,  你需要的包含什么内容就输入什么内容,然后前面或后面或前后都加 * 就好了
F6   :如果为 True 则搜索子文件夹,为 False 则不搜索子文件夹

考虑到效率和电脑配置问题,限制了搜索量,懂代码的可以自己修改,改坏了别找我哦~~~~ ^.^

下面是效果图





也可以直接用代码来调用,并不是一定要在工作表里设置,
按钮的代码也就是下面这个,里面有一些示例代码!

1. 
   
2. Sub Test()
   
3. Dim Arr, myPath As String
   
4.     Range("C10:C2200").ClearContents
   
5.     myPath = Range("F3").Value
   
6. '    Arr = FindFileOrFolder(mypath, True, , True)
   
7.     '搜索该路径中所有文件夹名字(子文件夹)
   
8.     Arr = FindFileOrFolder( _
   
9.     myPath, Range("F4").Value, Range("F5").Value, Range("F6").Value)
   
10.     '搜索该路径中所有文件名字(子文件夹)
    
11. '
    
12. '    Arr = FindFileOrFolder(myPath, , "*.xls", True)
    
13. '    '搜索该路径中类型是 xls 的文件名字(子文件夹)
    
14. '    Arr = FindFileOrFolder(myPath, True, "*i*", True)
    
15. '    '搜索该路径中文件夹名字包含小写字母 i 的文件夹(子文件夹)
    
16.    
    
17. '    Arr = FindFileOrFolder(myPath, , "*.xl*")
    
18.     '搜索该路径中类型包含 xl 的文件名字(不搜索子文件夹)
    
19.    
    
20. '    Arr = FindFileOrFolder(myPath, True, "*i*")
    
21. '    '搜索该路径中文件夹名字包含小写字母 i 的文件夹(不搜索子文件夹)
    
22.     If IsArray(Arr) Then
    
23.         Range("C10").Resize(UBound(Arr) + 1).Value = Application.Transpose(Arr)
    
24.     End If
    
25.     MsgBox "搜索完成!", , "土豆提示"
    
26. End Sub
    

复制代码

文件中源码是完全公开的~~~~

下载文件需要支付论坛币,怎么搞论坛币可以去聊天版块发贴求助~~~

文件搜索器.rar (71.86 KB, 下载次数: 15, 售价: 20 个金币)

2017-1-19 17:57 上传

点击文件名下载附件

无聊的疯子

第一楼是我的~~~~

望帝春心

来学习，感谢分享！

crx115851234

很好、很强大，这个一定得支持！！！⊙_⊙