易语言怎么实现复制一个文件夹。包括该文件夹下面的子文件夹。最好能把剩余时间也显示出来。

Question

如题所述

Answer 1

 

易语言有这样一个自带函数。

 

进度复制文件（）

 

第一个参数接收的是目的目录，也就是要把文件放在哪

 

第二个参数可以接收单个文件，也可以接受一个文件夹，只要指向好就行了

 

会自动调用系统API进行复制的。就像你用复制/粘贴命令一样

追问

我要的是复制文件夹，这个可以吗？

追答

是的。
这个函数的第二个参数允许接收文件夹。

追问

好的，谢谢。

Answer 2

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