20063211620346974.e
下载: e 文件
作者：易官方论坛 TLSWR
可以搜索当前目录、目录内的所有子目录和文件。
逆风编程技术
初学者对这源代码有什么不明白，请发贴子提问！
这代码有注解释说明，适合初学者！
-----------------------------------------------------------------------------------------------------
.子程序 _按钮1_被单击
搜寻 (“C:\”)
.子程序 搜寻, , , 如提供搜索目录路径，将会搜索此目录所有在内的文件。
.参数 目录, 文本型, , 目录，如“C:\”盘。
.局部变量 文件名, 文本型
处理事件 () ' 给出机会以接收停止按钮事件，搜索时会占用程序的资源，使得延时处理其它事件，所要用：“处理事件（）”。
.如果真 (取文本右边 (目录, 1) ≠ “\”) ' 判断当前目录的格式是否正确。如“C:”,这格式是不正确的,改为"C:\"。
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.mp3”, ) ' “*.mp3”搜索MP3文件，“*.*”搜索所有文件。
.判断循环首 (文件名 ≠ “”) ' 判断文件名是否有效，有效向下执行搜索。
输出调试文本 (目录 ＋ 文件名) ' 当前搜索到的文件路径
文件名 ＝ 寻找文件 (, ) ' 继续搜寻文件
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录) ' 搜寻目录文件，包括子目录。
.判断循环首 (文件名 ≠ “”) ' 判断目录名是否有效，有效向下执行搜索。
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 ＋ 文件名) ' 如果寻找到目录路径就搜继续搜索文件。
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
|
您的位置：逆风者
→ 易语言
→ 易语言精华
→ 正文
本文章所属分类：首页
→ 易语言
→ 易语言精华