.版本 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 枚举出来 () .子程序 __启动窗口_创建完毕