文件复制重命名问题

小少

生成出现问题，按理说我复制以后应该要有5个文件夹，但是只有2个。。
感觉应该是相同时间命名出现了问题，大佬能否修改当前的代码，
出现命名重复问题不是按时间重命名而是按数字1234567重命名，或者多加一层相同时间命名冲突的识别
可以的话可以两种情况的代码都提供一下！感谢，我可以学习一下

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

创建目录 (编辑框2.内容)
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
目录	文本型		0
目录名	文本型
目标位置	文本型

按钮1.禁止 ＝ 真
目录 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (目录), i)
目录名 ＝ 目录_取尾部目录名或文件名 (目录 [i])
目标位置 ＝ 编辑框2.内容 ＋ “\” ＋ 目录名
判断 (目录_是否存在 (目标位置))
目录_复制 (目录 [i], 目标位置 ＋ 时间到文本 (取现行时间 (), ))
目录_复制 (目录 [i], 目标位置)
调试输出 (目标位置)
计次循环尾 ()
按钮1.禁止 ＝ 假

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 创建目录 (编辑框2.内容)<br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 目录, 文本型, , "0"<br /> .局部变量 目录名, 文本型<br /> .局部变量 目标位置, 文本型<br /> <br /> 按钮1.禁止 ＝ 真<br /> 目录 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (目录), i)<br />     目录名 ＝ 目录_取尾部目录名或文件名 (目录 <i>)<br />     目标位置 ＝ 编辑框2.内容 ＋ “\” ＋ 目录名<br />     .判断开始 (目录_是否存在 (目标位置))<br />         目录_复制 (目录 <i>, 目标位置 ＋ 时间到文本 (取现行时间 (), ))<br />     .默认<br />         目录_复制 (目录 <i>, 目标位置)<br />     .判断结束<br />     调试输出 (目标位置)<br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假

文件复制转移.e (958.03 KB, 下载次数: 2)

2024-10-1 09:53 上传

点击文件名下载附件 测试文件.zip (2.58 KB, 下载次数: 2)

2024-10-1 09:54 上传

点击文件名下载附件
测试文件

小了白了兔

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
目录	文本型		0
目录名	文本型
目标位置	文本型
已复制	节点
a	整数型

按钮1.禁止 ＝ 真
目录 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (目录), i)
目录名 ＝ 目录_取尾部目录名或文件名 (目录 <i>)
目标位置 ＝ 编辑框2.内容 ＋ “\” ＋ 目录名
判断 (目录_是否存在 (目标位置))
已复制.取数值 (目标位置, a)
目录_复制 (目录 [i], 目标位置 ＋ “_” ＋ 到文本 (a ＋ 1))
已复制.修改属性 (目标位置, a ＋ 1)
目录_复制 (目录 [i], 目标位置)
已复制.加入属性 (目标位置, 1)
调试输出 (目标位置)
计次循环尾 ()
按钮1.禁止 ＝ 假

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 目录, 文本型, , "0"<br /> .局部变量 目录名, 文本型<br /> .局部变量 目标位置, 文本型<br /> .局部变量 已复制, 节点<br /> .局部变量 a, 整数型<br /> <br /> 按钮1.禁止 ＝ 真<br /> 目录 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (目录), i)<br />     目录名 ＝ 目录_取尾部目录名或文件名 (目录 <i>)<br />     目标位置 ＝ 编辑框2.内容 ＋ “\” ＋ 目录名<br />     .判断开始 (目录_是否存在 (目标位置))<br />         已复制.取数值 (目标位置, a)<br />         目录_复制 (目录 <i>, 目标位置 ＋ “_” ＋ 到文本 (a ＋ 1))<br />         已复制.修改属性 (目标位置, a ＋ 1)<br />     .默认<br />         目录_复制 (目录 <i>, 目标位置)<br />         已复制.加入属性 (目标位置, 1)<br />     .判断结束<br />     调试输出 (目标位置)<br /> .计次循环尾 ()<br /> 按钮1.禁止 ＝ 假

试试这样，不要用时间

小少

小了白了兔 发表于 2024-10-1 10:13
[e=1].版本 2
.支持库 EDataStructure
.支持库 spec

你好老哥，好像没法运行啊。。 提示【错误(8): 右括号处于错误位置。】

小了白了兔

小少 发表于 2024-10-1 10:47
你好老哥，好像没法运行啊。。 提示【错误(8): 右括号处于错误位置。】

直接复制网页代码的问题
[ ]  在粘贴到易语言里变成了  < >  了
你看看改一下啊

补充内容 (2024-10-1 10:53):
代码还是你的代码，只不过把时间改成累加的数字，增加节点用于判断已复制的目录数量