遍历电脑获取所有指定的格式文件源码

写到文件 (取运行目录 () ＋ “\文件夹.txt”, 到字节集 (编辑框2.内容))
_启动窗口.标题 ＝ “正在获取文件”
文件夹 ＝ 分割文本 (编辑框2.内容, #换行符, )
编辑框1.内容 ＝ “”
.计次循环首 (取数组成员数 (文件夹), a)
调试输出 (取数组成员数 (文件夹), a)
文件_枚举 (文件夹 [a], “*.jpg”, 文件, 真) ' 这里填写获取文件类型
.计次循环尾 ()
.计次循环首 (取数组成员数 (文件), B)
调试输出 (取数组成员数 (文件), B)
编辑框1.加入文本 (文件 [B] ＋ #换行符)
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\文件.txt”, 到字节集 (编辑框1.内容))
文件 ＝ 分割文本 (编辑框1.内容, #换行符, )
标签1.标题 ＝ “文件夹 ” ＋ 到文本 (取数组成员数 (文件夹)) ＋ “ 个，文件 ” ＋ 到文本 (取数组成员数 (文件)) ＋ “ 个。”
_启动窗口.标题 ＝ “日记以保存在软件目录”