求一个文件移动的代码

小少

求大佬帮忙弄个文件复制的代码，
大概意思就是把
D:\99999\文件夹1\啊
D:\99999\文件夹2\去
D:\99999\文件夹3\哦去
D:\99999\文件夹4\在
D:\99999\文件夹5\去
D:\99999\文件夹6\激活
D:\99999\文件夹7\好的
D:\99999\文件夹8\后台
D:\99999\文件夹9\哦天
D:\99999\文件夹10\成啊

里的文件复制一份到
E:\11111
里面，然后重复的文件名就自动重命名两个都保留

冬夏

文件复制转移.e (1.05 MB, 下载次数: 9)

2024-9-29 15:39 上传

点击文件名下载附件 看看是不是这样

xjqgccq0

用fastcopy吧

云少i

https://bbs.125.la/forum.php?mod=viewthread&tid=14822563     现成的给你用。

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型

文本 ＝ 分割文本 (“D:\99999\文件夹1\啊” ＋ #换行符 ＋ “D:\99999\文件夹2\去”, #换行符, )
计次循环首 (取数组成员数 (文本), n)
文件_复制_重命名 (文本 [n], “E:\11111\” ＋ 目录_取尾部目录名或文件名 (文本 [n]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文件_复制_重命名	文本型		复制指定文件到指定的文件位置，若名称重复则重命名。执行成功返回复制后的文件名，否则返回空文本。
参数名	类 型	参考	可空	数组	备 注
被复制文件名	文本型				被复制文件名
复制到文件名	文本型				复制到文件名
是否覆盖	整数型				可空。默认为直接覆盖。0=覆盖，非0不覆盖

变量名	类 型	静态	数组	备 注
移动目标	文本型
文本左边	文本型
文本右边	文本型
序号	整数型

如果真 (文件是否存在 (被复制文件名) ＝ 假)
返回 (“”)
移动目标 ＝ 复制到文件名
文本左边 ＝ 文本_取左边 (复制到文件名, “.”, -1)
文本右边 ＝ 文本_取右边 (复制到文件名, “.”)
判断循环首 (文件是否存在 (移动目标))
移动目标 ＝ 取文本 (“%d (%d).%d”, 文本左边, 原子递增变量 (序号), 文本右边)
判断循环尾 ()
如果 (CopyFileA (被复制文件名, 移动目标, 1))
返回 (移动目标)
返回 (“”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 文本 ＝ 分割文本 (“D:\99999\文件夹1\啊” ＋ #换行符 ＋ “D:\99999\文件夹2\去”, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     文件_复制_重命名 (文本 [n], “E:\11111\” ＋ 目录_取尾部目录名或文件名 (文本 [n]))<br /> .计次循环尾 ()<br /> <br /> .子程序 文件_复制_重命名, 文本型, 公开, 复制指定文件到指定的文件位置，若名称重复则重命名。执行成功返回复制后的文件名，否则返回空文本。<br /> .参数 被复制文件名, 文本型, , 被复制文件名<br /> .参数 复制到文件名, 文本型, , 复制到文件名<br /> .参数 是否覆盖, 整数型, 可空, 可空。默认为直接覆盖。0=覆盖，非0不覆盖<br /> .局部变量 移动目标, 文本型<br /> .局部变量 文本左边, 文本型<br /> .局部变量 文本右边, 文本型<br /> .局部变量 序号, 整数型<br /> <br /> .如果真 (文件是否存在 (被复制文件名) ＝ 假)<br />     返回 (“”)<br /> .如果真结束<br /> 移动目标 ＝ 复制到文件名<br /> 文本左边 ＝ 文本_取左边 (复制到文件名, “.”, -1)<br /> 文本右边 ＝ 文本_取右边 (复制到文件名, “.”)<br /> .判断循环首 (文件是否存在 (移动目标))<br />     移动目标 ＝ 取文本 (“%d (%d).%d”, 文本左边, 原子递增变量 (序号), 文本右边)<br /> .判断循环尾 ()<br /> .如果 (CopyFileA (被复制文件名, 移动目标, 1))<br />     返回 (移动目标)<br /> .否则<br />     返回 (“”)<br /> .如果结束

我很低调

文件_移动

找软件看我签名

枚举文件  就行了

小少

LEOONL 发表于 2024-9-29 12:06
[e=0].版本 2
.支持库 spec

用不了呀大佬。。没反应

LEOONL

小少 发表于 2024-9-29 14:02
用不了呀大佬。。没反应

测试过用没问题的。。

小少

冬夏 发表于 2024-9-29 15:39
看看是不是这样

你好老哥，还差了一些些。。。能帮忙改成文本形式填入的吗