年底了系统上线,总结做完,相对闲下来了.于是着手整理文件.整理的时候发现我有很多文件堆放在电脑里十分凌乱,整理起来十分痛苦,那么就搞了一个之前在这里发的VB.NET文件搜索示例,不过VB.NET感觉较难,很多东西搞不懂.于是又转用VB6.0写了这个示例,说实在的调试快,资料多,十分爽!首先感谢一下红尘如烟大师的文件搜索模块.我把它整合在了VB6.0的模块里.这个示例虽然简单,但是也融了一些心血.我搜索了很多有用的模块和控件来完成这个自定义文件搜索功能.如下:

1、浏览文件夹GetFolder，这个access里有With Application.FileDialog(msoFileDialogFolderPicker) 的用法,但是感觉所附模块比较小巧,通用,效果如下

2、判断控件是否注册并自行注册，这个很有用，在access和vb里测试通过，用法如下

首先要调用这个模块啦!然后:

'注册皮肤控件
    If RegSvr32("c:\windows\system32\Codejock.SkinFramework.v12.0.1.ocx", False) = False Then
        RegSvr32 App.Path & "\Codejock.SkinFramework.v12.0.1.ocx", False
    End If
    '反注册皮肤控件
     fun_UnRegServer = RegSvr32("c:\windows\system32\Codejock.SkinFramework.v12.0.1.ocx", True)

3、Codejock.SkinFramework.v12.0.1.ocx皮肤美化控件。这个我在vb里用很好很强大，access貌似不成。一改vb土土的界面。模块大家自己看。效果如下。

4、clsFileSearch文件搜索模块。这个是红尘如烟老大提供的，核心模块，我稍加修改。可用在vb。

简单看下功能，比如我选择了office分类。添加了指定要搜索的文字。

然后点击搜索

结果如下

双击即可打开文件.后台数据库为main.mdb.初学VB，代码写的不是很规范，附件一个为直接可用的主程序，一个为源代码，大家有兴趣就讲究着看，有空我再来完善,有bug告诉我一声.

                                                                                                                                               顺祝:新年快乐!

附件1:直接运行的程序点击下载此附件

附件2:源代码点击下载此附件