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

swanseabrian

遍历子目录查找文件改名

excel a b两列,

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

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

idwma

#@&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

回复 2# idwma


    估计 也只有powershell可以做了吧

swanseabrian

回复 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

回复 4# swanseabrian


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

swanseabrian

回复 5# idwma


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

idwma

回复 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

回复 7# idwma


    powershell真厉害

swanseabrian

回复 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

回复 9# swanseabrian

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