|
楼主 |
发表于 2020-6-22 00:17:46
|
显示全部楼层
甘肃省武威市
- .版本 2
- .支持库 EThread
- .支持库 eAPI
- .子程序 _按钮1_被单击
- 启动线程 (&开始, , )
- .子程序 开始
- .局部变量 驱动器, 文本型, , "0"
- .局部变量 i, 整数型
- 驱动器 = 取驱动器列表 ()
- .计次循环首 (取数组成员数 (驱动器), i)
- 枚举 (驱动器 [i], #只读文件 + #隐藏文件 + #存档文件)
- .计次循环尾 ()
- .子程序 枚举
- .参数 目录, 文本型
- .参数 属性, 整数型
- .局部变量 文件名, 文本型
- .如果真 (取文本右边 (目录, 1) ≠ “\”)
- 目录 = 目录 + “\”
- .如果真结束
- 标题 = “正在枚举:” + 目录
- 文件名 = 寻找文件 (目录 + “*.txt”, 属性)
- .判断循环首 (文件名 ≠ “”)
- .如果真 (寻找文本 (文件名, 编辑框1.内容, , 假) ≠ -1)
- 列表框1.加入项目 (目录 + 文件名, )
- .如果真结束
- 文件名 = 寻找文件 (, )
- .判断循环尾 ()
- 文件名 = 寻找文件 (目录 + “*.*”, #子目录)
- .判断循环首 (文件名 ≠ “”)
- .如果真 (取文本左边 (文件名, 1) ≠ “.”)
- ' 列表框1.加入项目 (目录 + 文件名, )
- 枚举 (目录 + 文件名, 属性)
- .如果真结束
- 文件名 = 寻找文件 (, #子目录)
- .判断循环尾 ()
复制代码 |
|