文档目录管理系统 ----->

hank2611 · 发表于 2009-6-23 17:36

文档目录管理系统,

批量生成目录,

并表明各目录之间的关系,

建立文件连接,可迅速打开文件,

更新:
设定不同级别的文件夹背景颜色不同
添加文件夹打开功能
添加追加目录功能,
添加了更新目录按钮,天好冷啊.后背拔凉拔凉的
优化了部分代码
添加自动更新选项

统一解压密码: mimahenjiandan

在此感谢涵辛的意见,她向一面镜子,照出了我的不足,使我不断地进步.

[ 本帖最后由 hank2611 于 2010-11-29 22:32 编辑 ]

来生缘 · 发表于 2009-6-23 17:45

很好，赞一个
如果不闪屏，加一个进度条就更好了。

yc2007 · 发表于 2009-6-23 18:03

建议文件夹分层次就更好一点

hank2611 · 发表于 2009-6-23 19:00

原帖由 来生缘 于 2009-6-23 17:45 发表
很好，赞一个
如果不闪屏，加一个进度条就更好了。

如果统计的目录数较少,闪屏影响不大,还可以看到过程
如果统计的目录较多,不闪屏看不到过程还以为死机了,就点击窗口会造成真的死了.

如果要不闪屏,可以在 test 函数的开始加一行
Application.ScreenUpdating = False

末尾加一行
Application.ScreenUpdating = True

hank2611 · 发表于 2009-6-23 21:31

添加了目录树样式

[ 本帖最后由 hank2611 于 2009-6-25 18:56 编辑 ]

hank2611 · 发表于 2009-6-25 19:00

不闪的才是最好的,

目录统计速度有点慢.有上千个文件时需要十几秒,

望高手能做个代码优化

fengjy1976 · 发表于 2009-7-20 10:57

好，收藏了，谢谢版主

lumike · 发表于 2009-8-6 11:51

高效管理工具

ok520 · 发表于 2009-8-6 22:24

收惨了。
很好很强

zjdh · 发表于 2009-8-7 18:12

请问：运行到
.Cells(i, 12) = Application.WorksheetFunction.Ceiling(fso.GetFile(spath & sFileName).Size / 1024, 1) & " kb"
时，
activeX部件不能创建对象错误
缺什么控件？

		自动登录	找回密码
密码			免费注册

[分享] 文档目录管理系统 ----->

评分