Windows高度还原资源管理器【DS】文件管理器 还原度60%

yangzhixuan

高度还原Windows10资源管理器（还原度：60%）

界面以Windows10为基础，利用超级列表框的报表列同时列出文件的名称，大小以及类型

并且利用超级列表框的表头功能对目录分层，使用更方便

优点：排列整齐，美观，文件基础信息一目了然，工具条的使用更是锦上添花

缺点：由于工程量太大，树型框暂时无法列出目录，无法多选文件，属性功能也暂未做好

但是，我敢保证这是全站最好的资源管理器

部分代码：

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
a	文本型		0
i	整数型
b	文本型		0
z	整数型

超级列表框1.全部删除 ()
a ＝ 分割文本 (目录搜寻 (父目录 ＋ “\*”), “;”, )
计次循环首 (取数组成员数 (a), i)
超级列表框1.插入表项 (, a , 0, , , )
计次循环尾 ()
i ＝ 0
b ＝ 分割文本 (文件搜寻 (父目录 ＋ “\*”), “;”, )
计次循环首 (取数组成员数 (b), i)
如果真 (b  ＝ “$RECYCLE.BIN” 或 b  ＝ “$Recycle.Bin”)
到循环尾 ()

超级列表框1.插入表项 (, b , 1, , , )
计次循环尾 ()
计次循环首 (超级列表框1.取表项数 (), )
如果 (超级列表框1.取图片 (z, 0) ＝ 0)
超级列表框1.置标题 (z, 1, “文件夹”)
超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (目录_取大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)



超级列表框1.置标题 (z, 1, 文件_取类型 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)))
超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (文件_取实际大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)

z ＝ z ＋ 1
计次循环尾 ()
z ＝ 0

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> <br /> .支持库 iext<br /> <br /> <br /> .子程序 子程序1<br /> <br /> .局部变量 a, 文本型, , "0"<br /> <br /> .局部变量 i, 整数型<br /> <br /> .局部变量 b, 文本型, , "0"<br /> <br /> .局部变量 z, 整数型<br /> <br /> <br /> 超级列表框1.全部删除 ()<br /> <br /> a ＝ 分割文本 (目录搜寻 (父目录 ＋ “\*”), “;”, )<br /> <br /> .计次循环首 (取数组成员数 (a), i)<br /> <br />     超级列表框1.插入表项 (, a , 0, , , )<br /> <br /> .计次循环尾 ()<br /> <br /> i ＝ 0<br /> <br /> b ＝ 分割文本 (文件搜寻 (父目录 ＋ “\*”), “;”, )<br /> <br /> .计次循环首 (取数组成员数 (b), i)<br /> <br />     .如果真 (b  ＝ “$RECYCLE.BIN” 或 b  ＝ “$Recycle.Bin”)<br /> <br />         到循环尾 ()<br /> <br />     .如果真结束<br /> <br />     超级列表框1.插入表项 (, b , 1, , , )<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), )<br /> <br />     .如果 (超级列表框1.取图片 (z, 0) ＝ 0)<br /> <br />         超级列表框1.置标题 (z, 1, “文件夹”)<br /> <br />         超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (目录_取大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)<br /> <br />     .否则<br /> <br />         超级列表框1.置标题 (z, 1, 文件_取类型 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)))<br /> <br />         超级列表框1.置标题 (z, 2, 到文本 (四舍五入 (文件_取实际大小 (父目录 ＋ “\” ＋ 超级列表框1.取标题 (z, 0)) ÷ 1024, )) ＋ “KB”)<br /> <br />     .如果结束<br /> <br />     z ＝ z ＋ 1<br /> <br /> .计次循环尾 ()<br /> <br /> z ＝ 0

下载：

DS文件管理器.zip (1.47 MB, 下载次数: 99)

2022-1-2 09:41 上传

点击文件名下载附件
源码+模块
下载积分: 精币 -2 枚

husongping

66666

钟先森

Windows高度还原资源管理器

donglu

加油，很有用的

果心豆腐酱

是不是只有我没用过WIN10的资源管理器啊？

2467201838dark

666666666666666666666666666666666666

embdata

感谢分享                       

蓝河笑月

支持开源~！感谢分享

qvbgod

加油，支持一下。某些大神连个精华都没有，也好意思来喷，真不知道这些大神怎么想的

kic1234

支持分享、支持原创、支持创新