【已解决】求助BAT批量命名文件夹

001011 · 发表于 2013-5-8 00:44:15

本帖最后由 001011 于 2013-5-8 17:58 编辑

附件“测试.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 · 发表于 2013-5-8 14:55:58

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 · 发表于 2013-5-8 16:31:05

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

xxpinqz · 发表于 2013-5-8 17:20:08

@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 · 发表于 2013-5-8 17:30:24

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

xxpinqz · 发表于 2013-5-8 17:46:21

回复 [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 · 发表于 2013-5-8 17:58:10

非常感谢非常好用谢谢啊

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

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

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

评分

评分