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

部分代码

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

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

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注