SolidWorks机械工程师网——最大的SolidWorks学习平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

好品数字
好品数字
查看: 6294|回复: 27

宏,文件夹移动、改名,更新整个搜索目录下的引用。

  [复制链接]

8

主题

90

帖子

908

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2770

最佳新人活跃会员热心会员宣传达人

 楼主| 发表于 2022-5-13 10:06:03 | 显示全部楼层 |阅读模式
SW提供了文件改名和移动,但是无法更改目录名称,和多选文件。
对于我们这种前期项目名称不确定,多任务交叉又存在一些通用零件的,每过一段时间就存在整理,更改文件夹名称的需求。
需求量不大,但是很麻烦。

网上没找到,就自己写一个吧;)

文件夹移动.rar (10.01 KB, 下载次数: 175, 售价: 10 金币)

评分

参与人数 1威望 +5 金币 +40 贡献 +5 收起 理由
专门设计 + 5 + 40 + 5 赞一个!

查看全部评分

SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复

使用道具 举报

8

主题

90

帖子

908

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2770

最佳新人活跃会员热心会员宣传达人

 楼主| 发表于 2022-5-13 10:19:55 | 显示全部楼层
1,将源文件夹复制到目标文件夹(可新建),删除源文件夹,实现移动,重命名功能。
2,搜索文件夹是需要查找替换引用的文件位置。
3,使用了递归查询目录,对源文件夹和搜索文件夹的所有子目录有效!
4,由于需求量一般很小,所以没有做界面。请进入SW宏编辑程序运行。并按需求更改下面三行
Source_PATH = "D:\源文件夹\"     '源文件夹
      Dest_PATH = "D:\目标件夹\"      '目标件夹
    Search_PATH = "D:\需要搜索的需要更改引用的文件夹\"             '搜索件夹
5,对STEP 文件也查询(我自己的需求),不需要的找下面这行自己改
If UCase(Right(FileList(i), 6)) = "SLDPRT" Or UCase(Right(FileList(i), 6)) = "SLDASM" Or UCase(Right(FileList(i), 4)) = "STEP" Then '如不需要替换STEP文件,请自行修改

6,!!!使用前请做好备份,改乱了我不负责啊!!!
7,!!!注意!!!,由于搜索对全部子目录有效,因此如果你的目录下存在零件名相同的项目备份目录,请注意结果!!
目前想到就这些,有问题问,不保证及时回答
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持10、11两个版本的IE浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,以及10和11版本的IE兼容模式,其余浏览器也是如此)
回复 支持 反对

使用道具 举报

5

主题

131

帖子

95

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1964

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2022-5-13 10:31:43 | 显示全部楼层
具体怎么使用,大神能说一下嘛?
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

8

主题

90

帖子

908

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2770

最佳新人活跃会员热心会员宣传达人

 楼主| 发表于 2022-5-13 10:36:08 | 显示全部楼层
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,!!!注意!!!
     由于对源文件夹、搜索文件夹内的全部子目录有效,因此如果你存在文件名相同的备份目录的情况请注意结果。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

131

帖子

95

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1964

最佳新人活跃会员热心会员宣传达人灌水之王

发表于 2022-5-13 11:05:06 | 显示全部楼层

   经典案例图书
楼主把这三行Source_PATH = "D:\源文件夹\"     '源文件夹
        Dest_PATH = "D:\目标件夹\"      '目标件夹
        Search_PATH = "D:\需要搜索的需要更改引用的文件夹\"             '搜索件夹
做一个界面多好啊,要不然每次都需要改一下宏,附件我下载,希望楼主有时间改一下
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

6

主题

417

帖子

660

金币

传奇

Rank: 8Rank: 8

积分
4235

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-14 08:49:44 | 显示全部楼层
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

9

主题

526

帖子

323

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2503

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-16 21:33:15 | 显示全部楼层

   经典案例图书
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

209

帖子

520

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1462

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-17 10:25:55 | 显示全部楼层
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

2

主题

59

帖子

425

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1085

最佳新人活跃会员热心会员宣传达人

发表于 2022-5-18 22:03:17 | 显示全部楼层
感谢分享      
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

427

帖子

42

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2236

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-19 21:58:12 | 显示全部楼层
SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

70

帖子

372

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1412

最佳新人活跃会员热心会员宣传达人

发表于 2022-5-20 14:32:54 | 显示全部楼层
没图,不知道是什么!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

1992

帖子

1386

金币

传奇

Rank: 8Rank: 8

积分
7143

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-25 09:19:29 | 显示全部楼层
谢谢分享!!!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

1

主题

1992

帖子

1386

金币

传奇

Rank: 8Rank: 8

积分
7143

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-5-25 09:31:38 | 显示全部楼层
感谢分享,谢谢!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

67

帖子

86

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
419

最佳新人活跃会员热心会员宣传达人

发表于 2022-5-25 15:25:27 | 显示全部楼层
楼主辛苦了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

22

主题

542

帖子

262

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2106

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-6-27 21:05:45 来自手机 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

22

主题

542

帖子

262

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2106

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-6-27 21:05:46 来自手机 | 显示全部楼层

   经典案例图书
SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

22

主题

542

帖子

262

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2106

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-6-27 21:05:46 来自手机 | 显示全部楼层
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

9

主题

388

帖子

1058

金币

传奇

Rank: 8Rank: 8

积分
3712

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2022-7-6 11:39:01 | 显示全部楼层

   经典案例图书
楼主太有才了,膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3

主题

1059

帖子

163

金币

传奇

Rank: 8Rank: 8

积分
3478

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2023-7-4 19:38:04 | 显示全部楼层
SolidWorks机械工程师网,顶一下。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3

主题

314

帖子

8

金币

堂主

Rank: 4

积分
930

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

发表于 2023-7-4 20:20:53 | 显示全部楼层
SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-3-29 02:57 , Processed in 0.302998 second(s), 40 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件: admin@swbbsc.com

快速回复 返回顶部 返回列表