批量替换不同文件夹下的同名文档

yhooo

假设A1 A2 A3.....等多个不同路径的文件夹下都有个同名文件A    想用B文件批量替换掉A文件，怎么实现呢 有思路吗大哥们
或者是将某个文件夹，批量复制到不同路径下，如何实现呢

cobi

  

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

变量名	类 型	静态	数组	备 注
源目录	文本型
B文件	文本型
目标目录	文本型		0
同名文件	文本型
i

源目录 ＝ “D:\”
B文件 ＝ “B.txt”
目标目录 ＝ { “C:\A1\”, “C:\A2\”, “C:\A3\” }
同名文件 ＝ “A.txt”
计次循环首 (取数组成员数 (目标目录), i)
判断 (复制文件 (源目录 ＋ B文件, 目标目录 [i] ＋ 同名文件))  ' 复制文件可以直接替换目标文件且保留目标文件名。
' 文件更名 (目标目录 [i] ＋ 同名文件, 目标目录 [i] ＋ B文件)  ' 替换后需要更名为B文件可以用这个。
调试输出 (目标目录 [i] ＋ 同名文件 ＋ “替换完成。”)
调试输出 (目标目录 [i] ＋ 同名文件 ＋ “替换失败。”)

计次循环尾 ()
' 下面也可以直接删除同名A文件，然后再复制B文件过去。
计次循环首 (取数组成员数 (目标目录), i)
如果真 (文件是否存在 (目标目录 [i] ＋ 同名文件))
删除文件 (目标目录 [i] ＋ 同名文件)
判断 (复制文件 (源目录 ＋ B文件, 目标目录 [i] ＋ B文件))
调试输出 (目标目录 [i] ＋ 同名文件 ＋ “替换完成。”)
调试输出 (目标目录 [i] ＋ 同名文件 ＋ “替换失败。”)

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击, , , 添加个按钮试试<br /> .局部变量 源目录, 文本型<br /> .局部变量 B文件, 文本型<br /> .局部变量 目标目录, 文本型, , "0"<br /> .局部变量 同名文件, 文本型<br /> .局部变量 i<br /> <br /> 源目录 ＝ “D:\”<br /> B文件 ＝ “B.txt”<br /> 目标目录 ＝ { “C:\A1\”, “C:\A2\”, “C:\A3\” }<br /> 同名文件 ＝ “A.txt”<br /> .计次循环首 (取数组成员数 (目标目录), i)<br />     .判断开始 (复制文件 (源目录 ＋ B文件, 目标目录 <i> ＋ 同名文件))  ' 复制文件可以直接替换目标文件且保留目标文件名。<br />         ' 文件更名 (目标目录 <i> ＋ 同名文件, 目标目录 <i> ＋ B文件)  ' 替换后需要更名为B文件可以用这个。<br />         调试输出 (目标目录 <i> ＋ 同名文件 ＋ “替换完成。”)<br />     .默认<br />         调试输出 (目标目录 <i> ＋ 同名文件 ＋ “替换失败。”)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 下面也可以直接删除同名A文件，然后再复制B文件过去。<br /> <br /> .计次循环首 (取数组成员数 (目标目录), i)<br />     .如果真 (文件是否存在 (目标目录 <i> ＋ 同名文件))<br />         删除文件 (目标目录 <i> ＋ 同名文件)<br />     .如果真结束<br />     .判断开始 (复制文件 (源目录 ＋ B文件, 目标目录 <i> ＋ B文件))<br />         调试输出 (目标目录 <i> ＋ 同名文件 ＋ “替换完成。”)<br />     .默认<br />         调试输出 (目标目录 <i> ＋ 同名文件 ＋ “替换失败。”)<br />     .判断结束<br /> <br /> .计次循环尾 ()