[转载搬运] 批量处理文件后缀名工具/代码 [1+3.91kb][百度盘]

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
2 }6 }4 w' n8 z! ]7 \8 V3 {

' 修改文件后缀名.vbs
, q0 j; h! W# f* \7 D; K, H! H'
2 I+ G( @$ ?# G/ `9 k' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
1 E$ i5 D; X! K5 Y+ E3 b! h4 M  x' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
( l/ @, v" R! l" X/ C( z'
, P; U( t" @0 X# y5 S- J- A' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
+ S4 M7 v: `# J# `' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
+ e/ T/ F3 u; u! R8 M' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
% L8 y, K; I+ J8 }, A+ X9 Y2 _8 N' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
& x* Q8 q% ~. I) t3 a# n
0 X4 i3 e" G9 J, ^" DOption Explicit

' 获取当前目录的路径
Dim folderPath
- C; y. I9 E* q/ H+ W) ^5 ffolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
& ^) k3 `+ j. \% R* b3 D
! X3 U3 d$ H* v' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
' c' r1 F, k& z7 h  x6 r
( F/ Q) N% h6 q' 如果用户取消了输入框，则退出脚本
# T" A3 ?  d' B! gIf newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
End If

) W7 Z5 }# F: s7 \7 w; l- J( r; g' 确保新的后缀名不包含点（.）
0 n2 }; B% ?1 _, oIf InStr(newExtension, ".") > 0 Then
& t( J5 m- w' j8 [4 r    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
( a! Z. y9 n- g& |# b    WScript.Quit
End If
: T$ K6 L5 B: n
8 v/ {- k4 c4 r# L9 j, L' 创建 FileSystemObject 对象
; U* E, g+ M8 {( }Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

) }3 i1 d+ b3 j; \: J% f$ J2 `( v' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)

' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
. |: x' `# m9 g5 @% C; b: X
' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
If hasSubFolders Then
6 s" p, d7 \9 Y* j7 T0 B    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
, {/ B' y  G# P; ~- D6 rEnd If

/ Q; j$ S6 b, n. A! _- ?' 处理当前目录中的所有文件
; R" p! S2 v( p" q3 d2 uCall ProcessFiles(folder, newExtension)

- z0 _1 E; w/ v5 X+ D' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
/ _$ m) z$ H/ Z! a8 E    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
9 Q& a* x, W5 B: N& N1 \End If
# X# U* Q% N" ^6 M
2 M( w) H7 M& O* B  s. R' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

, G* K2 v' ~$ ]1 u) G4 b' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
7 Q1 k; m4 y0 W) P8 w. I1 [3 }9 v    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
5 \. r- R5 H3 L% u" i9 @7 x
    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

! d' g9 v% ]- A+ a$ ~    ' 遍历指定目录下的所有文件
# {% w3 N' ^8 L- i4 g- f* Y    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
6 C% K0 y$ u3 ^% U        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
2 ~! p7 Z$ }& g* R$ H3 V2 G            oldName = file.Name
7 X5 Y# P% _' E            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
8 r& T/ I  `) T. r* @" Y" c                ' 创建新的文件名
1 H5 t1 \4 H. R' G: ]7 o, |/ q: f2 c2 S                newName = baseName & "." & newExtension

8 y8 V. K3 k( d/ D' b; r0 j                ' 检查是否已有同名文件，如果有，则处理重名
  Q5 E, `9 |) X                newFileName = newName
                counter = 1
- [: u! _5 Q! G                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
  f* d1 B  Y# X2 K                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
2 Q0 n0 K& `& s; `6 k/ X8 P                Wend

/ c( f2 k7 }/ N4 U7 v" ?! o                ' 记录新的文件名
                nameDict.Add newFileName, True

( g$ b: g  \  {1 m. ~. z                ' 重命名文件
                file.Name = newFileName
            End If
        End If
) f6 F! w$ ~2 f; K  b. C9 U    Next
End Sub

* ~- Y, h5 ~$ i/ `8 e5 {6 s
( u% m7 E# w# w6 d2 {( l+ u1 {7 J
: t1 l2 ~" d& w* X3 H7 }& W& @7 V! o

dzd172

建立一个文本文档 输入ren *.更改前的格式 *.更改后的格式 保存退出 更改TXT后缀为bat

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
! L2 x6 \" L0 }2 x4 ]0 g/ L