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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：

4 ?5 z) L0 {3 K: {4 A
, o. s! |+ G" y+ M/ K' 修改文件后缀名.vbs
'
' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
) H+ H$ p- }0 i6 `# t7 i  J' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
- ?9 e1 Q$ q% b* X6 S. @5 [2 M'
( p; o* T8 b' H( s) x3 ^' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
3 p7 T  k8 h  u9 a4 V' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
. F  i7 b. `6 T+ G. n" S2 p' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
+ c2 O3 y% `; O' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
4 f. z$ k! i  J; A1 M' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
8 p0 r' i( J7 Y* q6 t+ z
. X! T# S8 ], v9 Q0 S9 TOption Explicit

' 获取当前目录的路径
6 O' x0 x4 t1 \Dim folderPath
6 B, d$ u/ d' ], QfolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

9 x* j  p+ `9 s' t  u. U' 如果用户取消了输入框，则退出脚本
& p- l  d  T: x& v; X6 aIf newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
End If

, I7 i6 y( L+ \$ n& Q5 L2 P6 t! ~' 确保新的后缀名不包含点（.）
+ M7 P9 H7 p7 l* Y. T/ ^9 XIf InStr(newExtension, ".") > 0 Then
4 t5 [: R% _% h8 V( @    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
    WScript.Quit
End If
* Y9 J' ^$ A* L# |
' 创建 FileSystemObject 对象
3 X/ R( N' p1 s7 k) uDim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

0 F# G. ]* Y' ^, F5 F1 g' 获取当前目录的 Folder 对象
* y+ ~4 M# P5 g( T" Z) kSet folder = fso.GetFolder(folderPath)
, U* R" r% x9 O/ I3 Q* S1 K
8 y2 i4 _* h1 s2 K! [' 检查当前目录是否包含子目录
: Y: r6 ?3 z: S/ \8 U9 J1 K8 oDim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
+ u8 ?9 n; {7 i8 [Dim modifySubFolders
9 [! D& d$ k  N: u' X( z& AIf hasSubFolders Then
! K+ M- \% i- l8 P    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
+ p7 U& R# V' KEnd If

$ M5 m/ n: Z1 R3 Q' C' 处理当前目录中的所有文件
4 x* @- V9 M8 m" U" W( v% jCall ProcessFiles(folder, newExtension)
7 O8 L2 F; s% k$ Q$ e
) T- ]% P% M$ w" ^& I* h' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
7 x8 o+ u9 m; I7 z& X- Y% ^If hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
% D8 p. ]3 t4 z9 z8 u    Next
End If
. k: S; c2 k: [2 W8 F  B7 T
9 }( _) Z2 `/ c' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

' 处理指定目录中的文件的子程序
+ v- q1 n9 E, I  {Sub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
$ |$ K/ a% c1 A/ |$ [4 j* {# D* s
, e6 s6 a, r5 j( p    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
9 {/ E$ h7 G1 W! r! W, O' r4 `6 u        ' 跳过后缀名为 .vbs 的文件
* h% t6 L* F! \. w' [. H        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

, Q; |6 U- t+ ]: a            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
# ~7 j3 G' y0 t, B2 k; [                newName = baseName & "." & newExtension

0 J. w. V5 _3 |& ~2 E9 W                ' 检查是否已有同名文件，如果有，则处理重名
9 l% t/ [" m% r  g4 l                newFileName = newName
3 \8 f8 f$ L9 V, H, t: Q                counter = 1
0 b. g, g# y8 ?; N3 D( C* W7 P                ' 确保新的文件名唯一
5 O; x, I! y: T' h# d2 q/ `, M                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
7 ]2 S4 I9 l+ b7 V8 {                    counter = counter + 1
                Wend
$ p3 u/ _  v# s' T
                ' 记录新的文件名
* t0 D3 ?. Z) ]6 P( m                nameDict.Add newFileName, True
$ L7 F- K- k6 D7 c" c, |
. B! c4 B5 ~: ~  n) s& q: v+ ?# E                ' 重命名文件
                file.Name = newFileName
            End If
1 N0 v0 d# r' U) f        End If
( K+ R: C: ]3 v# Z    Next
End Sub
$ h6 G4 W8 H8 c' p  ^
, L; m4 b$ ~- L0 W# D+ t- @. e

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
8 e" \4 @, r2 h- W8 k7 }