Question

易语言怎么把指定文件夹复制到指定文件夹

Answer 1

.版本 2
.支持库 shell

.子程序 取目录下文件夹名, , , 2017-07-15
.参数 目录, 文本型
.参数 文件夹名组, 文本型, 参考 数组
.局部变量 文件名, 文本型

文件名 ＝ 寻找文件 (目录 ＋ “\*.*”, #子目录)
清除数组 (文件夹名组)
.判断循环首 (文件名 ≠ “”)
.如果真 (文件名 ≈ “.”)
文件名 ＝ 寻找文件 (, #子目录)
到循环尾 ()
.如果真结束
加入成员 (文件夹名组, 文件名)
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

.子程序 取目录下文件名, , , 2017-07-15
.参数 目录, 文本型
.参数 文件名组, 文本型, 参考 数组
.局部变量 文件名, 文本型
.局部变量 i, 整数型

文件名 ＝ 寻找文件 (目录, )
清除数组 (文件名组)
.判断循环首 (文件名 ≠ “”)
加入成员 (文件名组, 文件名)
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 复制文件夹, , , 2017-07-15
.参数 原目录, 文本型
.参数 复制到的目录, 文本型
.局部变量 文件夹, 文本型, , "0"
.局部变量 文件, 文本型, , "0"
.局部变量 i, 整数型

.如果真 (文件是否存在 (复制到的目录) ＝ 假)
创建目录 (复制到的目录)
.如果真结束
取目录下文件名 (原目录 ＋ “\*.*”, 文件)
.计次循环首 (取数组成员数 (文件), i)
.如果真 (复制文件 (原目录 ＋ “\” ＋ 文件 [i], 复制到的目录 ＋ “\” ＋ 文件 [i]) ＝ 假)
信息框 (“复制” ＋ #左引号 ＋ 复制到的目录 ＋ “\” ＋ 文件 [i] ＋ #右引号 ＋ “失败”, 0, , )
到循环尾 ()
.如果真结束
.如果真结束

.计次循环尾 ()
取目录下文件夹名 (原目录, 文件夹)
.计次循环首 (取数组成员数 (文件夹), i)
复制文件夹 (原目录 ＋ “\” ＋ 文件夹 [i], 复制到的目录 ＋ “\” ＋ 文件夹 [i])
.计次循环尾 ()