同名文件怎么判断 谢谢

lhlabfaogo

现在有两个文件夹  里面有几十个文件 A文件夹和B文件夹 里面的文件有一些名称相同，想把这两个文件夹合并到一起 ，同名称的文件后面加个数字以此类推
一直没想到好点的思路 求大神们的思路 谢谢 最好有简单的代码参考下 谢谢了

尛龍科技

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
文件_复制_重命名	文本型
参数名	类 型	参考	可空	数组	备 注
被复制文件名	文本型
复制到的文件夹路径	文本型

变量名	类 型	静态	数组	备 注
源文件名	文本型
基础名	文本型
扩展名	文本型
目标文件名	文本型
序号	整数型
新文件名	文本型
点位置	整数型

如果真 (文件是否存在 (被复制文件名) ＝ 假)
返回 (“”)

源文件名 ＝ 文件_取文件名 (被复制文件名, )
点位置 ＝ 倒找文本 (源文件名, “.”, , 假)
如果 (点位置 ＞ 0)
基础名 ＝ 取文本左边 (源文件名, 点位置 － 1)
扩展名 ＝ 取文本右边 (源文件名, 取文本长度 (源文件名) － 点位置)
基础名 ＝ 源文件名
扩展名 ＝ “”
目标文件名 ＝ 复制到的文件夹路径 ＋ “\” ＋ 源文件名
判断循环首 (文件是否存在 (目标文件名))
序号 ＝ 序号 ＋ 1
新文件名 ＝ 复制到的文件夹路径 ＋ “\” ＋ 基础名 ＋ “_” ＋ 到文本 (序号) ＋ “.” ＋ 扩展名
目标文件名 ＝ 新文件名
判断循环尾 ()
如果 (复制文件 (被复制文件名, 目标文件名))
返回 (目标文件名)
返回 (“”)

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

变量名	类 型	静态	数组	备 注
源文件夹A	文本型
源文件夹B	文本型
目标文件夹	文本型
文件列表	文本型
当前文件	文本型

源文件夹A ＝ “C:\A文件夹”
源文件夹B ＝ “C:\B文件夹”
目标文件夹 ＝ “C:\合并文件夹”
如果真 (目录_是否存在 (目标文件夹) ＝ 假)
创建目录 (目标文件夹)

文件列表 ＝ 寻找文件 (源文件夹A ＋ “\*.*”, )
循环判断首 ()
当前文件 ＝ 文件列表
如果真 (当前文件 ≠ “”)
文件_复制_重命名 (源文件夹A ＋ “\” ＋ 当前文件, 目标文件夹)
文件列表 ＝ 寻找文件 (, )
循环判断尾 (文件列表 ≠ “”)
文件列表 ＝ 寻找文件 (源文件夹B ＋ “\*.*”, )
循环判断首 ()
当前文件 ＝ 文件列表
如果真 (当前文件 ≠ “”)
文件_复制_重命名 (源文件夹B ＋ “\” ＋ 当前文件, 目标文件夹)
文件列表 ＝ 寻找文件 (, )
循环判断尾 (文件列表 ≠ “”)
信息框 (“文件夹合并完成！”, 0, “提示”, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 文件_复制_重命名, 文本型, 公开<br /> .参数 被复制文件名, 文本型<br /> .参数 复制到的文件夹路径, 文本型<br /> .局部变量 源文件名, 文本型<br /> .局部变量 基础名, 文本型<br /> .局部变量 扩展名, 文本型<br /> .局部变量 目标文件名, 文本型<br /> .局部变量 序号, 整数型<br /> .局部变量 新文件名, 文本型<br /> .局部变量 点位置, 整数型<br /> <br /> .如果真 (文件是否存在 (被复制文件名) ＝ 假)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 源文件名 ＝ 文件_取文件名 (被复制文件名, )<br /> 点位置 ＝ 倒找文本 (源文件名, “.”, , 假)<br /> <br /> .如果 (点位置 ＞ 0)<br />     基础名 ＝ 取文本左边 (源文件名, 点位置 － 1)<br />     扩展名 ＝ 取文本右边 (源文件名, 取文本长度 (源文件名) － 点位置)<br /> .否则<br />     基础名 ＝ 源文件名<br />     扩展名 ＝ “”<br /> .如果结束<br /> 目标文件名 ＝ 复制到的文件夹路径 ＋ “\” ＋ 源文件名<br /> .判断循环首 (文件是否存在 (目标文件名))<br />     序号 ＝ 序号 ＋ 1<br />     新文件名 ＝ 复制到的文件夹路径 ＋ “\” ＋ 基础名 ＋ “_” ＋ 到文本 (序号) ＋ “.” ＋ 扩展名<br />     目标文件名 ＝ 新文件名<br /> .判断循环尾 ()<br /> .如果 (复制文件 (被复制文件名, 目标文件名))<br />     返回 (目标文件名)<br /> .否则<br />     返回 (“”)<br /> .如果结束<br /> <br /> <br /> .子程序 _主程序<br /> .局部变量 源文件夹A, 文本型<br /> .局部变量 源文件夹B, 文本型<br /> .局部变量 目标文件夹, 文本型<br /> .局部变量 文件列表, 文本型<br /> .局部变量 当前文件, 文本型<br /> <br /> 源文件夹A ＝ “C:\A文件夹”<br /> 源文件夹B ＝ “C:\B文件夹”<br /> 目标文件夹 ＝ “C:\合并文件夹”<br /> .如果真 (目录_是否存在 (目标文件夹) ＝ 假)<br />     创建目录 (目标文件夹)<br /> .如果真结束<br /> <br /> 文件列表 ＝ 寻找文件 (源文件夹A ＋ “\*.*”, )<br /> .循环判断首 ()<br />     当前文件 ＝ 文件列表<br />     .如果真 (当前文件 ≠ “”)<br />         文件_复制_重命名 (源文件夹A ＋ “\” ＋ 当前文件, 目标文件夹)<br />     .如果真结束<br />     文件列表 ＝ 寻找文件 (, )<br /> .循环判断尾 (文件列表 ≠ “”)<br /> <br /> 文件列表 ＝ 寻找文件 (源文件夹B ＋ “\*.*”, )<br /> .循环判断首 ()<br />     当前文件 ＝ 文件列表<br />     .如果真 (当前文件 ≠ “”)<br />         文件_复制_重命名 (源文件夹B ＋ “\” ＋ 当前文件, 目标文件夹)<br />     .如果真结束<br />     文件列表 ＝ 寻找文件 (, )<br /> .循环判断尾 (文件列表 ≠ “”)<br /> 信息框 (“文件夹合并完成！”, 0, “提示”, )

去测试下吧

1752328925

把你的半成品发出来

LEOONL

https://bbs.125.la/forum.php?mod ... D%E5%91%BD%E5%90%8D

q838210720

先文件枚举，然后循环，对比文件名，一样的情况下执行文件_改名，完成后并移动

chenboss

合并文件夹重名文件带序号.e

cobi

合并文件夹_文件重复加序号.e (949.47 KB, 下载次数: 0)

2025-1-8 09:04 上传

点击文件名下载附件

b0y

  

DLL命令名	返回值类型	公开	备 注
PathYetAnotherMakeUniqueName	逻辑型		基于已存在的文件,创建一个唯一的文件名. 如C:\1.exe存在则返回C:\1 (2).exe  不存在则原样返回 。失败返回空
DLL库文件名:
Shell32.dll
在DLL库中对应命令名:
PathYetAnotherMakeUniqueName
参数名	类 型	传址	数组	备 注
pszUniqueName	字节集
pszPath	字节集
pszShort	字节集
pszFileSpec	字节集

.版本 2<br /> <br /> .DLL命令 PathYetAnotherMakeUniqueName, 逻辑型, "Shell32.dll", "PathYetAnotherMakeUniqueName", , 基于已存在的文件,创建一个唯一的文件名. 如C:\1.exe存在则返回C:\1 (2).exe  不存在则原样返回 。失败返回空<br />     .参数 pszUniqueName, 字节集, 传址<br />     .参数 pszPath, 字节集<br />     .参数 pszShort, 字节集<br />     .参数 pszFileSpec, 字节集