[文件操作] 【已解决】求助BAT批量命名文件夹

001011

附件“测试.xls”中的A列是读取  E:\测试\ 路径后的结果   
B列是想要改名的结果
首先读取路径中的文件夹及子文件夹（路径深度如附件“测试.xls”中的A列）
改名的规则按照B列的规则改

抱歉 我没有表达清楚问题
首先 我有一个文件夹E:\测试
E:\测试 下面有N个文件夹 这N个文件夹里面又有N个文件夹，路径格式如A列那样
E:\测试\0100-8222-001
E:\测试\0100-8222-001\00001A
E:\测试\0100-8222-001\00016A
E:\测试\0100-8222-001\00032A
E:\测试\0100-8222-001\00047A
E:\测试\0100-8222-001\00062A
我要改的文件夹名是 最后一级文件夹的名字
改名字的规则是：
E:\测试\0100-8222-001
E:\测试\0100-8222-001\0100-8222-001-001
E:\测试\0100-8222-001\0100-8222-001-002
E:\测试\0100-8222-001\0100-8222-001-003
E:\测试\0100-8222-001\0100-8222-001-004
E:\测试\0100-8222-001\0100-8222-001-005
我想要的是
比如
E:\测试\0100-8222-001\00001A
改成
E:\测试\0100-8222-001\0100-8222-001-001
也就是把00001A改成0100-8222-001-001
规律是获取上一级文件夹的名字 然后加上：“-001”

下一个就是
E:\测试\0100-8222-001\00016A
改成
E:\测试\0100-8222-001\0100-8222-001-002
规律是获取上一级文件夹的名字 然后加上：“-002”
依此类推

谢谢

apang

Set fso = CreateObject("Scripting.FileSystemObject")
Set xls = CreateObject("Excel.Application")
xls.Visible = False
xls.WorkBooks.Open("d:\测试.xls")
xls.WorkSheets(1).Activate

i = 1
Do Until xls.Cells(i,1).Value = ""
   ReDim PreServe ar(i)
   ar(i) = xls.Cells(i,1).Value & "*" & xls.Cells(i,2).Value
   i = i + 1
Loop
xls.quit :Set xls = Nothing

For i = 1 to UBound(ar) - 1
   For j = i + 1 to UBound(ar)
      If Split(ar(i),"*")(0) < Split(ar(j),"*")(0) Then
         Tmp = ar(i) : ar(i) = ar(j) : ar(j) = Tmp
      End If
   Next
Next

For i = 1 to UBound(ar)
   NewName = Split(ar(i),"\")(UBound(Split(ar(i),"\")))
   If fso.FolderExists(Split(ar(i),"*")(0)) Then
      If fso.GetFolder(Split(ar(i),"*")(0)).Name <> NewName Then
         fso.GetFolder(Split(ar(i),"*")(0)).Name = NewName
      End If
   End If
Next

MsgBox "OK"
复制代码

001011

回复 2# apang
感谢您
我的问题没有表达清楚  是我的错
我上传的测试.xls  只是为了说明问题  不是我本身就有这个表格了
我已经把问题从新描述了  麻烦您再帮忙解答一下  谢谢

xxpinqz

@echo off
for /d %%a in (*) do (
  pushd.
  cd /d "%%a"&set "n=1000"
  setlocal enabledelayedexpansion
  for /d %%b in (*) do (
    set /a n+=1
    ren "%%b" "%%a-!n:~1!"
  )
  endlocal
  popd
)
复制代码

001011

回复 4# xxpinqz
非常感谢  您的代码很好
您这个只能处理一个文件
就是  我会有N个E:\测试这样的文件夹  可以批量吗

xxpinqz

回复 [url=]5#[/url] 001011
未说明测试文件夹分布情况，使用拖放方式

@echo off
rem 操作方式:拖动需要重命名的文件夹至批处理图标上，可多个
:loop
if "%~1"=="" goto :eof
cd /d "%~1"||(echo 非法目录名称或不存在此目录&pause&goto :eof)
for /d %%a in (*) do (
  pushd.
  cd /d "%%a"&set "n=1000"
  setlocal enabledelayedexpansion
  for /d %%b in (*) do (
    set /a n+=1
    ren "%%b" "%%a-!n:~1!"
  )
  endlocal
  popd
)
shift /1
goto loop
复制代码

001011

非常感谢  非常好用  谢谢啊