Windows仿资源管理器Pro

yangzhixuan · 发表于 2021-10-30 14:58:00

本帖最后由 yangzhixuan 于 2021-10-30 15:01 编辑

这是我发布的第二个作品
感谢大家的支持
程序如图所示
程序制作不易，希望大家能在评论区鼓励一下我

子程序名	返回值类型	公开	备注
搜寻
参数名	类型	参考	可空	数组	备注
欲搜寻文件目录	文本型

变量名	类型	静态	数组	备注
文本	文本型
文件名	文本型
值	整数型
RM	文本型
文件名1	文本型

文本＝取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 假)) ＋超级列表框1.取标题 (超级列表框1.现行选中项, )

如果真 (超级列表框1.现行选中项 ≠ -1 且位与 (取文件属性 (文本), #子目录 ) ＝ 0)

执行 (, 超级列表框1.取标题 (超级列表框1.现行选中项, ), , )

返回 ()

' ======上以代码是执行文件,取文件名判断不是文件夹就打开.=======

如果真 (超级列表框1.现行选中项 ≠ -1 且位与 (取文件属性 (文本), #子目录 ) ≠ 0)

处理事件 ()

RM ＝超级列表框1.取标题 (超级列表框1.现行选中项, )

超级列表框1.全部删除 ()

文件名＝寻找文件 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM ＋ “\*.*”, #子目录 )

判断循环首 (文件名 ≠ “”)

如果真 (文件名 ≠ “.” 且文件名 ≠ “..”)

超级列表框1.插入表项 (, 文件名, 0, , , )

文件名＝寻找文件 (, #子目录 )

判断循环尾 ()

处理事件 ()

' ==================================插入搜索到当前文件夹到超级列表项======================================

文件名1 ＝寻找文件 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM ＋ “\*.*”, )

判断循环首 (文件名1 ≠ “”)

改变目录 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM)

超级列表框1.插入表项 (, 文件名1, 1, , , )

文件名1 ＝寻找文件 (, )

判断循环尾 ()

处理事件 ()

' ==================================插入搜索到当前文件到超级列表项=========================================

目录＝寻找文件 (目录＋ “*.*”, #子目录 )

判断循环首 (目录 ≠ “”)

如果真 (取文本左边 (目录, 1) ≠ “..”)

搜寻 (目录＋文件名)

判断循环尾 ()

' ====================================归继搜寻子目录,并赋值当前目录========================================
超级列表框1.重画 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 iext<br />
.支持库 shell<br />
<br />
.子程序 搜寻<br />
.参数 欲搜寻文件目录, 文本型<br />
.局部变量 文本, 文本型<br />
.局部变量 文件名, 文本型<br />
.局部变量 值, 整数型<br />
.局部变量 RM, 文本型<br />
.局部变量 文件名1, 文本型<br />
<br />
文本 ＝ 取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 假)) ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, )<br />
.如果真 (超级列表框1.现行选中项 ≠ -1 且 位与 (取文件属性 (文本), #子目录) ＝ 0)<br />
    执行 (, 超级列表框1.取标题 (超级列表框1.现行选中项, ), , )<br />
    返回 ()<br />
.如果真结束<br />
<br />
' ======上以代码是执行文件,取文件名判断不是文件夹就打开.=======<br />
<br />
<br />
.如果真 (超级列表框1.现行选中项 ≠ -1 且 位与 (取文件属性 (文本), #子目录) ≠ 0)<br />
    处理事件 ()<br />
    RM ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )<br />
    超级列表框1.全部删除 ()<br />
    文件名 ＝ 寻找文件 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM ＋ “\*.*”, #子目录)<br />
    .判断循环首 (文件名 ≠ “”)<br />
        .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />
            超级列表框1.插入表项 (, 文件名, 0, , , )<br />
        .如果真结束<br />
        文件名 ＝ 寻找文件 (, #子目录)<br />
    .判断循环尾 ()<br />
    处理事件 ()<br />
    ' ==================================插入搜索到当前文件夹到超级列表项======================================<br />
    文件名1 ＝ 寻找文件 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM ＋ “\*.*”, )<br />
    .判断循环首 (文件名1 ≠ “”)<br />
        改变目录 (取文本左边 (欲搜寻文件目录, 倒找文本 (欲搜寻文件目录, “\”, , 真)) ＋ RM)<br />
        超级列表框1.插入表项 (, 文件名1, 1, , , )<br />
        文件名1 ＝ 寻找文件 (, )<br />
    .判断循环尾 ()<br />
    处理事件 ()<br />
<br />
    ' ==================================插入搜索到当前文件到超级列表项=========================================<br />
    目录 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)<br />
    .判断循环首 (目录 ≠ “”)<br />
        .如果真 (取文本左边 (目录, 1) ≠ “..”)<br />
            搜寻 (目录 ＋ 文件名)<br />
        .如果真结束<br />
        目录 ＝ 寻找文件 (, #子目录)<br />
    .判断循环尾 ()<br />
    ' ====================================归继搜寻子目录,并赋值当前目录========================================<br />
<br />
.如果真结束<br />
超级列表框1.重画 ()