易语言如何实现复制文件夹，包括里面的子文件。并把速度显示出来。

这个是我以前写的复制整个文件夹的子程序。没有做进度条。希望对你有所帮助~
-----------------------------------------------------------------------------------
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 复制文件夹
.参数 复制目录, 文本型
.参数 粘贴目录, 文本型
.局部变量 文件, 文本型
处理事件 ()
.如果真 (文件是否存在 (粘贴目录) ＝ 假)
创建目录 (粘贴目录)
.如果真结束
复制目录 ＝ 复制目录 ＋ “\”
粘贴目录 ＝ 粘贴目录 ＋ “\”
文件 ＝ 寻找文件 (复制目录 ＋ “*.*”, )
.判断循环首 (文件 ≠ “”)
复制文件 (复制目录 ＋ 文件, 粘贴目录 ＋ 文件)
文件 ＝ 寻找文件 (, )
.判断循环尾 ()
文件 ＝ 寻找文件 (复制目录 ＋ “*.*”, #子目录)
.判断循环首 (文件 ≠ “”)
.如果真 (文件 ≠ “.” 且 文件 ≠ “..”)
复制文件夹 (复制目录 ＋ 文件, 粘贴目录 ＋ 文件)
.如果真结束
文件 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 __启动窗口_创建完毕
复制文件夹 (“d:\测试文件夹”, 取运行目录 ())
结束 ()

直接使用复制文件指令