易语言怎么写复制 _复制

1.易语言怎么写复制目录.版本 2
.支持库 spec
.子程序复制目录
.参数要复制的目录，文本型
.参数复制到的地方，文本型
.局部变量文件夹列表，文本型，，"0"
.局部变量操作目录组，文本型，，"0"
.局部变量文件名，文本型
.局部变量 i，整数型
.局部变量临时文件夹名，文本型
.局部变量文件夹名，文本型
.局部变量初始路径，文本型
.局部变量复制路径，文本型
.如果真（要复制的目录 ≠ “” 且复制到的地方 ≠ “”）
加入成员（操作目录组，要复制的目录 + “\”）
加入成员（文件夹列表，要复制的目录）
.循环判断首（）
文件名 = 寻找文件（操作目录组 [1] + “*.*”，#子目录）
.判断循环首（文件名 ≠ “”）
.如果真（文件名 ≠ “.” 且文件名 ≠ “..”）
加入成员（操作目录组，操作目录组 [1] + 文件名 + “\”）
加入成员（文件夹列表，操作目录组 [1] + 文件名）
.如果真结束
文件名 = 寻找文件（，#子目录）
.判断循环尾（）
删除成员（操作目录组，1, 1）
.循环判断尾（取数组成员数（操作目录组） >0)
初始路径 = 取文本左边（要复制的目录，倒找文本（要复制的目录，“\”，，假））
.判断开始（取文本右边（复制到的地方，1） ≠ “\”）
复制路径 = 复制到的地方 + “\”
.默认
复制路径 = 复制到的地方
.判断结束
.计次循环首（取数组成员数（文件夹列表），i)
临时文件夹名 = 子文本替换（文件夹列表 [i]，初始路径，，，，真）
延迟（1）
调试输出（“正在创建文件夹：” + 临时文件夹名）
创建目录（复制到的地方 + “\” + 临时文件夹名）
文件名 = 寻找文件（文件夹列表 [i] + “\*”, ）
.判断循环首（文件名 ≠ “”）
延迟（1）
调试输出（“正在复制文件：” + 文件名）
复制文件（初始路径 + 临时文件夹名 + “\” + 文件名，复制路径 + 临时文件夹名 + “\” + 文件名）
文件名 = 寻找文件（，）
.判断循环尾（）
.计次循环尾（）
调试输出（“复制完成”）
.如果真结束
2.易语言复制粘贴热键怎么写子程序 _按钮1_被单击
.如果（复制文件夹（“D:\youxi\cjsh”, “E:\youxi\cjsh”，） = 真）
信息框（“复制文件夹成功！”，0, ）
.否则
信息框（“复制文件夹失败！”，0, ）
.如果结束
.子程序复制文件夹，逻辑型，公开，成功返回真，失败返回假
.参数被复制的文件夹，文本型
.参数复制到的文件夹，文本型
.参数是否处理事件，逻辑型
.局部变量路径，文本型
.局部变量被复制的文件夹数组，文本型，，"0"
.局部变量复制到的文件夹文本，文本型
.如果真（寻找文件（被复制的文件夹，#子目录） = “”）
.如果真（寻找文件（被复制的文件夹，#存档文件 + #只读文件 + #隐藏文件 + #系统文件） ≠ “”）
返回（复制文件（被复制的文件夹，复制到的文件夹））
.如果真结束
返回（假）
.如果真结束
【易语言怎么写复制】.如果真（创建目录（复制到的文件夹） = 假且寻找文件（复制到的文件夹，#子目录） = “” 且位与（取文件属性（复制到的文件夹），#子目录） = 0 且取文本长度（复制到的文件夹） >3)
返回（假）
.如果真结束