[已解决]批处理怎样遍历子目录查找文件改名？

swanseabrian · 发表于 2021-11-6 16:43:59

本帖最后由 swanseabrian 于 2021-11-7 09:32 编辑

遍历子目录查找文件改名

excel a b两列,

a列是要查找的文件名, b列是要修改的文件名

在目录文件夹中(包含子文件夹)中
查找a列中的文件名,查找到后,对应修改为 b列中的文件名,这个要怎么操作,
谢谢

idwma · 发表于 2021-11-6 19:45:48

本帖最后由 idwma 于 2021-11-6 19:49 编辑

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("f:\test.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
[hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
}

复制代码

swanseabrian · 发表于 2021-11-6 19:54:12

回复 2# idwma

估计也只有powershell可以做了吧

swanseabrian · 发表于 2021-11-6 20:02:19

回复 2# idwma

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (

[]，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
+ FullyQualifiedErrorId : InvokeMethodOnNull

不能对 Null 值表达式调用方法。
所在位置行:10 字符: 8
+    if($d.containskey("$e.name")){ren $e.fullname $d[$e.name]}
+       ~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo       : InvalidOperation: (:) []，RuntimeException
报的这是啥错误

idwma · 发表于 2021-11-6 20:11:13

回复 4# swanseabrian

表格文件的路径填对了吗,安装有excel吗

swanseabrian · 发表于 2021-11-6 20:17:13

回复 5# idwma

修改成ansi可以了,但是没改名,哪里的问题

idwma · 发表于 2021-11-6 20:26:41

本帖最后由 idwma 于 2021-11-6 20:33 编辑

回复 6# swanseabrian

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("f:\test.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
[hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
if($d.containskey($e.name)){ren $e.fullname $d[$e.name]}
}

复制代码

swanseabrian · 发表于 2021-11-6 20:36:46

回复 7# idwma

powershell真厉害

swanseabrian · 发表于 2021-12-3 22:40:42

回复 7# idwma

老铁,现在有个同样的问题,但是要改的文件名,不带后缀, 这个要怎么加个后缀呀,

之前是找a列的数据文件,改成b列的文件名
现在是要给b列的文件名加个后缀需要,例如后缀是 .jpg,
这个要怎么加上去呢,
就在下面代码里加

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$a=New-Object -ComObject Excel.Application
$b=$a.Workbooks.Open("C:\Users\Administrator\Desktop\bat\1114\1203\图片\图片\经理 - 副本\经理.xlsx")
$c=$b.sheets.item(1)
for($i=1;"$($c.Range("a$i").Text)" -ne "";$i++){
[hashtable]$d+=@{"$($c.Range("a$i").Text)"="$($c.Range("b$i").Text)"}
}
$a.Workbooks.Close()
foreach($e in dir -r){
if($d.containskey($e.name)){ren $e.fullname $d[$e.name]+".jpg"}
}

复制代码

最后一行,我加的,显示错误

idwma · 发表于 2021-12-4 16:49:05

回复 9# swanseabrian

if($d.containskey($e.name)){ren $e.fullname ("$($d[$e.name])"+".jpg")}

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文件操作] [已解决]批处理怎样遍历子目录查找文件改名？

评分

评分