求完善：批量查找文本文件并复制

zippo5820 · 发表于昨天 02:51

批量查找可以
求帮忙把复制部分的功能完善一下

dmx5201314 · 发表于昨天 14:38

按钮4中添加加上这行代码
.版本 2
.支持库 iext

.子程序 _按钮4_被单击
.局部变量 i, 整数型
.局部变量源文件, 文本型
.局部变量目标文件, 文本型
.局部变量目录, 文本型
.局部变量文件名, 文本型
.局部变量目标路径, 文本型

目标路径＝编辑框2.内容
.如果真 (取文本右边 (目标路径, 1) ≠ “\”)

.如果真结束
目标路径＝目标路径＋ “\”
.如果真 (取反 (文件是否存在 (目标路径)))

.如果真结束
创建目录 (目标路径)

' 遍历超级列表框中的所有表项
.计次循环首 (超级列表框1.取表项数 (), i)
目录＝超级列表框1.取标题 (i － 1, 1)
文件名＝超级列表框1.取标题 (i － 1, 2)
源文件＝目录＋文件名
目标文件＝目标路径＋文件名
.如果 (复制文件 (源文件, 目标文件))
输出调试文本 (“复制成功：” ＋源文件)
.否则
信息框 (“复制失败：” ＋源文件, #错误图标, “提示”, )
.如果结束

.计次循环尾 ()

信息框 (“文件复制完成！”, #信息图标, “提示”, )

白宝宝 · 发表于 6 小时前

批量查找复制.e (939.53 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册

[易语言] 求完善：批量查找文本文件并复制