|
SW提供了文件改名和移动,但是无法更改目录名称,和多选文件。
对于我们这种前期项目名称不确定,多任务交叉又存在一些通用零件的,每过一段时间就存在整理,更改文件夹名称的需求。
需求量不大,但是很麻烦。
网上没找到,就自己写一个吧;)
文件夹移动.rar
(10.01 KB, 下载次数: 185, 售价: 10 金币)
说明一会儿写,先试试收费附件;)
补充内容 (2022-5-13 10:38):
1,复制源文件夹到目标文件夹,更改搜索文件夹里的引用关系,实现文件夹移动,改名功能。
2,搜素文件采用递归方法,对源文件夹、搜索文件夹内的全部子目录有效。
3,由于需求量比较小,就没有做界面,请在SW宏编辑里执行宏程序,并提前修改这三行。
Source_PATH = "D:\源文件夹\" '源文件夹
Dest_PATH = "D:\目标件夹\" '目标件夹
Search_PATH = "D:\需要搜索的需要更改引用的文件夹\" '搜索件夹
4,宏对 step文件也有效(我的工作需求)不需要的自己改一下这行。
If UCase(Right(FileList(i), 6)) = "SLDPRT" Or UCase(Right(FileList(i), 6)) = "SLDASM" Or UCase(Right(FileList(i), 4)) = "STEP" Then '如不需要替换STEP文件,请自行修改
5,!!!请提前做好备份!!!改乱了我不负责;)
6,!!!注意!!!
由于对源文件夹、搜索文件夹内的全部子目录有效,因此如果你存在文件名相同的备份目录的情况请注意结果。
补充内容 (2022-5-13 10:50):
再补充一点,这个宏使用了强制替换引用
swApp.ReplaceReferencedDocument
所以不需要SW逐个打开文件,效率比较高,但还是不建议吧搜索目录设置的太靠前。 |
评分
-
查看全部评分
|