易语言取文件列表源码

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 文件个数, 整数型
.局部变量 文件名, 整数型

文件个数 ＝ 取文件列表 (“C:\Documents and Settings\Administrator\桌面\790个易语块\”, “*.ec”, 数组, )
.计次循环首 (文件个数, 计次)
    编辑框1.加入文本 (取文本右边 (数组 [计次], 取文本长度 (数组 [计次]) － 倒找文本 (数组 [计次], “”, , 假)) ＋ #换行符)
.计次循环尾 ()

@果子