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


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

主题:[分享] 我的资源管理器(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编辑过]

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


加好友 发短信
等级:版主 帖子:1689 积分:11978 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2014/9/2 16:14:00 [只看该作者]

抢沙发

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

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


加好友 发短信
等级:管理员 帖子:46934 积分:247887 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/9/2 16:14:00 [只看该作者]

呵呵,做得漂亮

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


加好友 发短信
等级:版主 帖子:1689 积分:11978 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

好,谢谢。

收藏了。


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178512 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/2 16:30:00 [只看该作者]

赞一个

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


加好友 发短信
等级:五尾狐 帖子:1097 积分:8948 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2014/9/2 16:37:00 [只看该作者]

要顶

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9827 积分:57042 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2014/9/2 17:08:00 [只看该作者]

有点意思

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


加好友 发短信
等级:七尾狐 帖子:1726 积分:11183 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/9/2 17:48:00 [只看该作者]

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

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


加好友 发短信
等级:四尾狐 帖子:816 积分:6685 威望:0 精华:2 注册:2012/8/23 12:35:00
  发帖心情 Post By:2014/9/2 17:50:00 [只看该作者]

lsy每次都是精品,看看。

 回到顶部
总数 603 1 2 3 4 5 6 7 8 9 10 下一页 ..61