文件管理工具──类似透视表的收展，可移动、改名、删除等

dudebad

          工作上的需要，需要对大量文件进行管理，在论坛里有不少这样的文件管理小工具，但用起来相当不方便。
所以自己努力学习论坛前辈的经验，自主创新，做了一个更加实用的文件管理工具。

         费话少说了，先上图


该小工具的优点：

一、实现类似透视表收展功能

• 双击文件夹所在的色条内任意单元格，可对文件夹收缩或展开
  

        其后面的子文件夹仍保持原有的收缩或展开的状态

•   点  “收” 或  “展”按键，可以对选择单元格所在列的全部文件夹收缩或展开
  

   


二、可直接在表格内实现文件管理操作（新建、改名、移动、删除）
       删除不是直接KILL死，可以在回收站内还原



三、可对文件或文件夹添加备注



当然也不足：
一、遍历文件夹时是按名称排序进行搜索，不能按自己要求排序


二、03版打开，颜色太艳，07版中颜色加淡 “ .Interior.TintAndShade = 0.3”  03版
      不起作用，03版不知道用什么代码使颜色变淡

三、文件夹内文件越多，文件更新就变得越慢，考虑到用数组，但数组不能让单元填充颜色，
       最终还要对工作表循环一次进行填色

按照回复的建议，去了底色，使用数组，运行效率已提高了一半




下面附件已更新！！

飞云楼主

收下，谢谢，文件太多，还是不好找，再加个簿内文件名模糊查找就更好

DataBus

不错的东西。

AVEL

之前看过类似的一个文件管理的。
颜色的确可以去掉。去掉估计楼主就可以用数组处理了

liucqa

展开功能能不能只展开指定目录？
颜色去掉为好，看着眼花，而且文件多了影响速度。

改成数组操作吧


支持一下

dudebad

飞云楼主 发表于 2012-4-11 19:31
收下，谢谢，文件太多，还是不好找，再加个簿内文件名模糊查找就更好

谢谢建议，我会考虑下加上搜索功能

dudebad

liucqa 发表于 2012-4-11 20:37
展开功能能不能只展开指定目录？
颜色去掉为好，看着眼花，而且文件多了影响速度。

谢谢你的建议，去掉颜色，这个可以考虑，但文件名跟后面的内容不好对齐，这方面我还得想下怎么处理

dudebad

huanghao028 发表于 2012-5-19 19:59
楼主，你好！
刚下载您的文件，试了试，发现有些文件显示在错误的文件夹下了。
不知道是什么原因

你先点下设置，指定好文件夹目录试试
或你直接在【P1】输入文件夹地址

RMans

谢谢分享，看看好用不

JLF2003

收藏了。谢谢分享。