文件复制/移动重命名/不覆盖目标并保留两个文件

会展开一个列表，然后把移动到第一项“模块”，什么！你找不到？去看看眼科吧，然后点击鼠标左键，什么！你不知道左键在哪？删了易语言吧！

如果还是看不懂，建议您长按主机上的电源键吧！你不适合用电脑！

.子程序 文件_复制_重命名, 文本型, 公开, 复制指定文件到指定的文件位置，若名称重复则重命名。返回复制后的文件名
.参数 被复制文件名, 文本型, , 被复制文件名
.参数 复制到文件名, 文本型, , 复制到文件名
.局部变量 移动目标, 文本型
.局部变量 左边, 文本型
.局部变量 右边, 文本型
.局部变量 序号, 整数型

移动目标 ＝ 复制到文件名
左边 ＝ 文本_取左边 (复制到文件名, “.”, -1)
右边 ＝ 文本_取右边 (复制到文件名, “.”)
.判断循环首 (CopyFileA (被复制文件名, 移动目标, 1) ＝ 假)
移动目标 ＝ 取文本 (“%d (%d).%d”, 左边, 自加 (序号), 右边)
.判断循环尾 ()
返回 (移动目标)

上面源码中的“自加”改为“原子递增变量”即可（这就是精易模块里那个dll，我复制了一下改了个名而已）