VBA 对文件夹内的图片名称重新命名

游乐缘

感谢分享，留名学习

rendiule01

wanghan519 发表于 2022-11-28 16:38
系统自带的powershell，目前最强力的批量改名工具（吹个牛）
不存在特殊字符的问题
一共两句：

系统自带的powershell？没听过，新事物，感谢大佬

rendiule01

wanghan519 发表于 2022-11-28 16:38
系统自带的powershell，目前最强力的批量改名工具（吹个牛）
不存在特殊字符的问题
一共两句：

那怎样设置 文件夹的位置呀？  大佬，比如文件夹 位置：  D:\进销存管理V2.6.6版(32位)\Attachments

wanghan519

rendiule01 发表于 2022-11-28 19:17
那怎样设置 文件夹的位置呀？  大佬，比如文件夹 位置：  D:\进销存管理V2.6.6版(32位)\Attachments


...

cd 目标文件夹
或者右键在此打开powershell

rendiule01

wanghan519 发表于 2022-11-28 20:15
cd 目标文件夹
或者右键在此打开powershell

我的是WIN7 大佬说的cd 是怎么意思？
我知道powershell，不知道怎样设置  文件夹的位置 ，运行你的代码显示没有指定 字典的位置报错
比如：  D:\进销存管理V2.6.6版(32位)\Attachments

wanghan519

rendiule01 发表于 2022-11-29 10:16
我的是WIN7 大佬说的cd 是怎么意思？
我知道powershell，不知道怎样设置  文件夹的位置 ，运行你的代码 ...

完蛋，我是不是干坏事了，别把你的用户文件夹里的文件改名了，赶快检查一下pwsh启动后默认的文件夹。。。

看了你发的图，幸亏powershell版本太旧，没有-directory参数，如果没运行第二句，user/123目录下的文件应该还没被改名

如果还要用的话，需要升级powershell5.1 for win7，或者直接下载个pwsh7绿色版，解压来用

我是右键菜单有个在此打开powershell

也可以在命令里写
cd 目标文件夹

rendiule01

wanghan519 发表于 2022-11-29 10:26
完蛋，我是不是干坏事了，别把你的用户文件夹里的文件改名了，赶快检查一下pwsh启动后默认的文件夹。。 ...

文件夹可以设置 但是执行你的代码后，会报错了  找不到与参数名称" Directory"  我修改写代码如下，但是 只能修改名称，不能把 -0 替换为空




cd "D:\进销存管理V2.6.6版(32位)\Attachments"
$Directory = "D:\进销存管理V2.6.6版(32位)\Attachments"
Get-ChildItem $Directory  | % {$n=($_.Name -split '-')[-1];$h=@{};Get-ChildItem -Path $_ | Rename-Item -NewName {$n+"-"+($h[$_.Extension]++)+$_.Extension}}

Get-ChildItem *-0.* -Recurse | Rename-Item -NewName {$_.Name -replace '-0',''}

wanghan519

rendiule01 发表于 2022-11-29 10:54
文件夹可以设置 但是执行你的代码后，会报错了  找不到与参数名称" Directory"  我修改写代码如下， ...

一定备份好数据，小心试验

1. cd 到目标文件夹
   
2. Get-ChildItem 货品照片-* | % {$n=($_.Name -split '-')[-1];$h=@{};Get-ChildItem -Path $_ | Rename-Item -NewName {($n+"-"+($h[$_.Extension]++)+$_.Extension) -replace '-0.','.'}}

复制代码

limonet

wanghan519 发表于 2022-11-28 16:38
系统自带的powershell，目前最强力的批量改名工具（吹个牛）
不存在特殊字符的问题
一共两句：

您好，“新建一个字典$h，遍历当前目录下的文件，以扩展名为key创建字典项目”，这句没有消化，能指导一下吗？因为只看到您“新建字典$h过程”，没有“以扩展名为key创建字典项目”的过程，谢谢。

wanghan519

limonet 发表于 2024-5-28 11:58
您好，“新建一个字典$h，遍历当前目录下的文件，以扩展名为key创建字典项目”，这句没有消化，能指导一 ...

大概是这里

1. ($h[$_.Extension]++)

复制代码

其中$_.Extension获取的是图片的扩展名，比如.jpg、.png
$h里面是这样的@{".jpg"=1; ".png"=2}，扩展名是项目的key，值每次调用自增1
每次重命名某个后缀的文件，会分别从0开始增长