移动所有子目录下的文件到指定文件

部分代码

.版本 2
.支持库 shell
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 G_文件夹, 文本型
.程序集变量 G_输出文件夹, 文本型
.程序集变量 G_计数器, 整数型

.子程序 _按钮1_被单击
.局部变量 L_文件夹, 文本型

L_文件夹 ＝ 浏览文件夹 (“文件所在目录”, 假)
.如果真 (L_文件夹 ≠ “”)
    G_文件夹 ＝ L_文件夹
    调试输出 (G_文件夹)
.如果真结束


.子程序 S_移动文件
.参数 目录, 文本型
.参数 文件名, 文本型

G_计数器 ＝ G_计数器 ＋ 1
移动文件 (目录 ＋ 文件名, G_输出文件夹 ＋ “” ＋ 到文本 (G_计数器) ＋ “.” ＋ 取文本右边 (文件名, 取文本长度 (文件名) － 寻找文本 (文件名, “.”, , 假)))
透明标签1.标题 ＝ “已移动：” ＋ 到文本 (G_计数器)

.子程序 枚举出来

.如果真 (G_文件夹 ≠ “”)
    文件_枚举1 (G_文件夹, “*.*”, &S_移动文件)
.如果真结束


.子程序 _按钮2_被单击
.局部变量 L_输出文件夹, 文本型

L_输出文件夹 ＝ 浏览文件夹 (“输出文件夹”, 假)
.如果真 (L_输出文件夹 ≠ “”)
    G_输出文件夹 ＝ L_输出文件夹
    调试输出 (G_输出文件夹)
.如果真结束


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

G_计数器 ＝ 0
枚举出来 ()

.子程序 __启动窗口_创建完毕

@mrzcpo