Foxtable(狐表)用户栏目专家坐堂 → [分享] 我的资源管理器(9月17日更新)


  共有189910人关注过本帖树形打印复制链接

主题:[分享] 我的资源管理器(9月17日更新)

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[分享] 我的资源管理器(9月17日更新)  发帖心情 Post By:2014/9/2 16:11:00 [显示全部帖子]

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

 

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

 

再接再厉 。

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

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

告诉你吧:密码不是888(好猜,猜对了就能看代码喽)

(bs888)

 

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

 

再次上传。

 

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

 

又来了:

 

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

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

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

 

20140909更新:

 

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

采用主表、主窗口(比并列窗口简单多了),代码更精炼、高效。

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

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

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

 

20140917更新:

 

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

 

20140925更新:

 

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

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

操作方法:

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

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

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

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

 

20140903更新


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

 

20140904更新 


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

 

20140905更新 


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

 

20140917更新 


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

 

20140925更新

 


以下内容只有回复后才可以浏览
[此贴子已经被作者于2014-9-25 15:36:19编辑过]

[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/2 16:24:00 [显示全部帖子]

以下是引用逛逛在2014-9-2 16:20:00的发言:

顺便说一下,看你前一贴 快捷方式,感觉没必要封装成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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/2 17:54:00 [显示全部帖子]

以下是引用jspta在2014-9-2 17:48:00的发言:
界面不错,但是扫描速度太慢,应该改进下

图片多,闪来闪去的,大部分是图片造成的。

 

而且,也是故意留着闪的,让用户知道:正在扫描,不是死机了。

不想用其他方法提示,这样省心。

[此贴子已经被作者于2014-9-2 17:57:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/3 8:23:00 [显示全部帖子]

再接再厉 。

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

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

告诉你吧:密码不是888(好猜,猜对了就能看代码喽)


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/3 17:05:00 [显示全部帖子]

以下是引用oaok在2014-9-3 16:52:00的发言:
密码很玄乎,实在猜不出。

哈哈,都告诉你了,还猜不出。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/4 11:02:00 [显示全部帖子]

密码不是888(bs888)

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/4 20:08:00 [显示全部帖子]

再加上磁盘类型判断,分清楚硬盘、U盘、光盘,并使用不同的图标,显得地道些。

20140904更新。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/5 9:28:00 [显示全部帖子]

又来了:

 

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

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/9 11:25:00 [显示全部帖子]

20140909更新:

 

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

采用主表、主窗口(比并列窗口简单多了),代码更精炼、高效。

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

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/9/17 15:44:00 [显示全部帖子]

20140917更新:

 

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


 回到顶部
总数 13 1 2 下一页