标题：[分享] 我的资源管理器(9月17日更新）

一直以来，都想有自己的资源管理器，想怎么摆弄就怎么摆弄。

 

既可单独使用，也可配合主项目使用。

 

再接再厉 。

用户可以自定义资源管理器节点了。

用户可以自定义显示哪些选项卡了。

告诉你吧：密码不是888（好猜，猜对了就能看代码喽）

（bs888）

 

有些细节疏忽了，虽无大碍，不合情理。

 

再次上传。

 

再加上磁盘类型判断，分清楚硬盘、U盘、光盘，并使用不同的图标。

 

又来了：

 

可以选择是否显示隐藏文件和文件夹。

隐藏文件和文件夹以灰色标记。

可以更改文件和文件夹的隐藏属性。

 

20140909更新：

 

资源管理器，目录根节点，完全自定义。

采用主表、主窗口（比并列窗口简单多了），代码更精炼、高效。

采用外部数据源，用“Insert Into”语句新增数据，并用事务一次性提交，速度大为提高。

可以选择是否在表中显示图片，不显示图片时，速度更快，与系统资源管理器，速度相当。

引入“高级筛选”功能，查找、筛选更灵活。

 

20140917更新：

 

加入文件批量修改、图片缩放，以及其他方便操作的功能。

 

20140925更新：

 

多线程、遍历查找文件(夹)，即使全电脑查找，也不会出现因为查找时间长，造成假死的现象，可以随时中断。

各功能之间更加协调、各窗口界面统一。

操作方法：

点击目录树、或点击表、或点击“向上”、“向前”、“向后”按钮、或在地址栏直接输入，确定查找范围；地址栏为空，则在全电脑查找。

点击“遍历查找”，填写文件(夹)名，留空则遍历查找范围内的所有文件(夹)。

因为会有许多无效文件(夹)，可能导致不返回查找结果。

实际上，操作系统的资源管理器目录树中，已经排除了很多文件(夹)，不知是按什么标准排除的，本案例只是按照出错提示，排除了一些。

 

20140903更新

---

以下内容只有回复后才可以浏览

---

 

20140904更新 

---

以下内容只有回复后才可以浏览

---

 

 

20140905更新 

---

以下内容只有回复后才可以浏览

---

 

20140917更新 

---

以下内容只有回复后才可以浏览

---

 

20140925更新

 

---

以下内容只有回复后才可以浏览

---

抢沙发

呵呵，做得漂亮

顺便说一下，看你前一贴 快捷方式，感觉没必要封装成Dll   直接写内部函数得了

 

 

Dim 目标文件全路径 As String = ""               '有后缀
Dim 目标文件夹径 As String = ""

Dim 快捷方式名称 As String = "试试.lnk"            '有后缀
Dim 快捷方式图标路径 As String = "G:\Chart32.ico"   '有后缀

        Dim wsh As Object = CreateObject("WScript.Shell")      '新建对象
        Dim desk As String = wsh.SpecialFolders("Desktop")     '获取桌面路径，可以直接定义路径
        Dim lnk As Object = wsh.CreateShortcut(desk & "\" & 快捷方式名称)

        With lnk
            .Description = "俺来逛逛"                '鼠标停留时的说明
            .IconLocation = 快捷方式图标路径         '图片文件的路径,必须是有效路径,如用默认图标,请将此注释掉
            .TargetPath = 目标文件全路径             '目标文件全路径
            .WorkingDirectory = 目标文件夹径         '目标文件的文件夹路径
            .Save()                                  '保存快捷方式
        End With

好，谢谢。

收藏了。

赞一个

要顶

有点意思

界面不错，但是扫描速度太慢，应该改进下

lsy每次都是精品，看看。