Question

bat批处理，怎么让D盘所有TXT文件（包括子目录）的名称变成TXT文件所在的D盘根目录下文件夹的名称

就是所有TXT文件名全都改成，该TXT所在路径，D盘根目录的文件夹的文件名.TXT

注：TXT不是改成所在文件夹名称，而是改成TXT所在路径，D盘根目录的文件夹的文件名.TXT
谢谢了

Answer 1

因为改名后文件名一样，所以你要确保每个子文件夹里面最多只有一个txt文件哦
@echo off
for /f "delims=" %%f in ('dir /b /s D:\*.txt') do (
for /f "tokens=2 delims=:\" %%a in ('echo %%f') do ren "%%f" "%%a.txt"
)

追问

您好，D盘根目录我是举个例子，如果是其他的路径可以吗，要改哪里呢
或者就是以该BAT文件的目录作为上面的D盘根目录
谢谢了

追答

这行 for /f "delims=" %%f in ('dir /b /s D:\*.txt') do (
改成 for /f "delims=" %%f in ('dir /b /s "你的路径\*.txt"') do (

追问

您好，不过这样文件名会变成根目录下的名称了
如要处理D:\abc里的文件，里面的文件名都变成了同一个名称abc.txt了，而不是abc文件夹下的文件夹的名称

追答

是啊，你不就是要这样吗？你仔细看看你的问题和我前面的回复。

追问

您好，我是说，现在以D:\ABC为目录，
D:\ABC\ad内的txt名称改为ad.txt
D:\ABC\qw内的txt名称改为qw.txt
D:\ABC\qw内的txt名称改为qw.txt
D:\ABC\qw\fd内的txt名称改为qw.txt

现在执行目录是变成了D:\ABC，可是txt却是都变成了ABC.txt
不好意思我没有表达清楚，谢谢了

追答

你把 tokens=2 改成 tokens=3 就行了。
这个数字是取哪个部分的：
D:\abc\def\ghi\xxx\text.txt
tokens=1 取 D
tokens=2 取 abc
tokens=3 取 def
tokens=4 取 ghi
tokens=5 取 xxx
tokens=6 取 text.txt
你自己发挥吧。

Answer 2

这是读取utf8文本
Dim Mazmun As String
Dim strFileName As String
strFileName = "c:\aa.txt"
Dim a
Set a = CreateObject("ADODB.Stream")
a.Charset = "utf-8"
a.Open
a.LoadFromFile strFileName
Mazmun = a.ReadText
a.Close
MsgBox Mazmun

下面是更改编码:
Dim Mazmun As String
Dim strFileName As String
strFileName = "c:\aa.txt"
Dim a
Set a = CreateObject("ADODB.Stream")
a.Charset = "utf-8"
a.open
a.LoadFromFile strFileName
Mazmun = a.ReadText
a.Close
Dim stm
Set stm = CreateObject("adodb.stream")
stm.Type = 2
stm.mode = 3
stm.Charset = "gb2312"
stm.open
stm.WriteText Mazmun
stm.SaveToFile strFileName, 2
stm.flush
stm.Close
Set stm = Nothing
MsgBox "utf8转换了GBK

Answer 3

同意楼上的说法