易语言复制文件或者目录

Question

.如果 (通过验证)
.计次循环首 (取数组成员数 (路径信息), i)
.如果真 (路径信息 .修改次数 ＞ 0)
.如果 (取文本中间 (路径信息 .路径, 取文本长度 (路径信息 .路径) － 3, 1) ＝ “.”)
文件名 ＝ 取文本中间 (路径信息 .路径, 倒找文本 (路径信息 .路径, “\”, , 假) ＋ 1, 倒找文本 (路径信息 .路径, “.”, , 假) － 倒找文本 (路径信息 .路径, “\”, , 假) － 1)
.否则
文件名 ＝ 取文本中间 (路径信息 .路径, 倒找文本 (路径信息 .路径, “\”, 取文本长度 (路径信息 .路径) － 1, 假) ＋ 1, 取文本长度 (路径信息 .路径) － 倒找文本 (路径信息 .路径, “\”, 取文本长度 (路径信息 .路径) － 1, 假) － 1)
.如果结束
局_时间 ＝ 取现行时间 ()
年 ＝ 到文本 (取年份 (局_时间))
月 ＝ 到文本 (取月份 (局_时间))
日 ＝ 到文本 (取日 (局_时间))
时 ＝ 到文本 (取小时 (局_时间))
分 ＝ 到文本 (取分钟 (局_时间))
秒 ＝ 到文本 (取秒 (局_时间))
时间 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “：” ＋ 分 ＋ “：” ＋ 秒
命令 ＝ 取运行目录 () ＋ “\7za.exe a ” ＋ #引号 ＋ U盘路径 ＋ 文件名 ＋ “ ” ＋ 时间 ＋ “.7z” ＋ #引号 ＋ “ ” ＋ 路径信息 .路径
调试输出 (命令)
运行 (“7za.exe a ” ＋ #引号 ＋ U盘路径 ＋ 文件名 ＋ “ ” ＋ 时间 ＋ “.7z” ＋ #引号 ＋ “ ” ＋ 路径信息 .路径, 假, 1)
路径信息 .修改次数 ＝ 0

以上是我的源代码
我想在（时间 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “：” ＋ 分 ＋ “：” ＋ 秒）这一段后面加上先复制“取运行目录”到D盘下的“备份文件”目录然后用7za对备份文件目录下的文件进行打包备份，最后删除D盘备份目录下的所有文件。

Answer 1

时间 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “：” ＋ 分 ＋ “：” ＋ 秒

注：建立文件夹，是不可以包含 ： 之类的特殊符号的，一般这类是以纯数字来命令
时间 ＝ 年 ＋ 月 ＋ 日 ＋ 时 ＋ 分 ＋ 秒

而且，复制目录，这个是没有命令的，必须自己写个

.版本 2
.子程序 复制目录
.参数 被复制目录, 文本型, , 形式如："c:\windows"等
.参数 复制到的目录, 文本型, , 形式如："e:\bak\win98"等
.局部变量 文件名, 文本型
处理事件 () ' 给出机会以接收停止按钮事件。
.如果真 (取文本右边 (被复制目录, 1) ≠ “\”)
被复制目录 ＝ 被复制目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (被复制目录 ＋ “*.*”, )
.如果 (文件名 ＝ “”)
创建目录 (复制到的目录)
.否则
.如果结束
.判断循环首 (文件名 ≠ “”)
创建目录 (复制到的目录)
.如果真 (取文本右边 (复制到的目录, 1) ≠ “\”)
复制到的目录 ＝ 复制到的目录 ＋ “\”
.如果真结束
复制文件 (被复制目录 ＋ 文件名, 复制到的目录 ＋ 文件名)
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (被复制目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本右边 (复制到的目录, 1) ≠ “\”)
复制到的目录 ＝ 复制到的目录 ＋ “\”
.如果真结束
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
复制目录 (被复制目录 ＋ 文件名, 复制到的目录 ＋ 文件名)
.如果真结束
创建目录 (复制到的目录 ＋ 文件名)
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
返回 (真)

你缺的应该就是怎么 复制目录 这个功能

Answer 2

就是想先把需要备份的文件打包进行备份，然后删除已经打过包的散文件是吗？

我之前写的一个程序也有数据库备份的功能，不知道你是不是要这种效果。代码如下

.版本 2
.支持库 eCompress
.支持库 spec
.子程序 开始备份
.局部变量 临时变量a, 文本型
.局部变量 临时变量b, 文本型
.局部变量 目录, 文本型
临时变量b ＝ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “.sjk”
ZIP压缩1.压缩 (取运行目录 () ＋ “\sky.edb”, 临时变量b)
写配置项 (取运行目录 () ＋ “\Pzdat.cad”, “shak”, “备份”, “0”)
临时变量a ＝ 取文本左边 (取当前目录 (), 3)
目录 ＝ 临时变量a ＋ “\sjk\”
.如果真 (文件是否存在 (目录) ＝ 假)
创建目录 (目录)
.如果真结束
移动文件 (取运行目录 () ＋ “\” ＋ 临时变量b, 目录 ＋ 临时变量b)
置文件属性 (目录, 3)

我上面的代码流程是这样。
1.先取当前时间转换为文本型设置为准备压缩的文件名 这里设置的例如是（201208292016.sjk）这里就是准备压缩后的文件名
2.开始压缩指定的文件，并命名为上面的名称
3.写记录软件运行的次数，没达到多少次后进行一次压缩备份，完成后次数恢复为0
4.设定需要把备份文件放在某个文件夹内，如果不存在就创建。存在的话就把压缩打包了的文件移动到这个文件夹里面去（楼主上面说要删除文件，我这里用的是移动文件)
5.设置文件目录的属性为隐藏属性

我不知道我这样对是不是你要的效果。如果有帮助，望采纳！！！谢谢！！！