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

嗯遛狗

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

* O) n. k, P$ i: t4 S5 H
' 修改文件后缀名.vbs
'
' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
) |0 r! Q: M& q" N) B) O  ]4 |( B' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
/ ^7 v0 E5 i0 ~- c8 ^" {! x7 [' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
  N' S8 d' a* ?' k4 e9 y' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' u# y# _0 m8 F3 ^4 p0 S( A. Y' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
; ?+ i3 X: X( l2 g2 c
8 J1 T3 J5 g! O# AOption Explicit
. L* v, ~* \2 j3 S' g
' 获取当前目录的路径
Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
6 @6 i/ S4 J. u
3 g+ B( t, v9 R$ f' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

3 q4 {# v0 @2 P+ L+ I% C# J' 如果用户取消了输入框，则退出脚本
8 R0 z) O0 k6 aIf newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
, V+ B1 I, k& |; L0 ~5 D4 b! L    WScript.Quit
End If

/ V! I" q0 _1 p! R* e' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
1 U) j  O2 P8 w( U5 [7 H+ ~# ]% l    WScript.Quit
End If
4 Z/ r8 C( j0 ~9 e7 c1 A9 C
' 创建 FileSystemObject 对象
6 U% Q( X) i7 k, Z7 @Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' V2 O4 G& U+ q, i1 b' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)
) s$ H8 I& B* e
' 检查当前目录是否包含子目录
4 Q: S* Q0 L$ d" p% |7 n1 d, v* g% lDim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

9 [; ~1 A3 b4 E8 J" B# X/ n' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
# W  C: G+ C, ODim modifySubFolders
7 \; y3 [& h, Z8 D/ pIf hasSubFolders Then
    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
  R; j" u( e2 D& v* W2 F  c) GEnd If

2 r3 v5 }, a" v6 w' 处理当前目录中的所有文件
9 S9 J. Y1 B3 J% X: aCall ProcessFiles(folder, newExtension)
* o3 @7 q. |' Q) j& F% O
' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
1 ^0 c6 ]! R1 z- r  mIf hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
, l" ^& L; `7 w& q$ R$ S: a        Call ProcessFiles(subFolder, newExtension)
+ j. G6 `; o# F+ u$ Z; ?    Next
0 h2 V. ?! ?2 _) kEnd If
& O4 S: Z: m% v/ }9 V2 z
4 K8 d5 B  y& }6 l' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
' P2 G& s3 w, ?% F8 s
' 处理指定目录中的文件的子程序
. }5 c" _1 k, U; ISub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
6 E5 O+ i) m4 P' \1 y  J    Dim nameDict
$ r4 Q9 D7 A9 j& {
    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

    ' 遍历指定目录下的所有文件
; i, X( y% j; v9 X; a2 ]    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
+ O1 o/ m2 T! _+ j1 c. c9 W( E        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
) m0 o0 U  D: f' b+ Y9 v: T            ' 获取文件的旧名称、基础名称和当前后缀名
- D9 L, O0 c1 b0 N  h' ?0 f% G1 W3 p            oldName = file.Name
5 W% ]  m+ O0 w) T0 R7 Y            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

            ' 如果当前后缀名与新后缀名不同，则进行重命名
  X: G  c+ y8 O3 w; Z" {4 n            If currentExtension <> LCase(newExtension) Then
8 k# h. w+ B4 n% f( {. e8 V6 d3 X                ' 创建新的文件名
8 h2 d8 `& j, ^  d                newName = baseName & "." & newExtension
  X# j1 y0 v1 k( ?" u
                ' 检查是否已有同名文件，如果有，则处理重名
  h- s& v/ m9 \! f8 E                newFileName = newName
                counter = 1
                ' 确保新的文件名唯一
6 q  z% j  j9 W1 s                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
                Wend
' B2 W! {9 j3 r3 m
                ' 记录新的文件名
                nameDict.Add newFileName, True

                ' 重命名文件
                file.Name = newFileName
            End If
        End If
    Next
End Sub
/ w% ~5 |% i; C: a7 n  F
, d6 d  F; Y$ i0 o

$ T5 T* C: h4 c- u

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦