学习易语言的第一天

学习易语言的第一天，查看文件

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

子程序_查找文件 (编辑框1.内容)

.子程序 子程序_查找文件
.参数 查找目录, 文本型
.局部变量 文件名, 文本型

.如果真 (取文本右边 (查找目录, 1) ≠ “\”)
    查找目录 ＝ 查找目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (查找目录 ＋ “*.*”, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环首 (文件名 ≠ “”)
    .如果真 (文件名 ＝ “.” 或 文件名 ＝ “..”)
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    .如果真 (取文件属性 (查找目录 ＋ 文件名) ＝ #子目录)
        子程序_查找文件 (查找目录 ＋ 文件名)
        文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
        到循环尾 ()
    .如果真结束

    列表框1.加入项目 (文件名, )

    文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
.判断循环尾 ()

[图片]