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

嗯遛狗

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

( C. V; s6 T( A* v1 ?  M3 y
# l- Y$ W# e6 q8 T7 b' 修改文件后缀名.vbs
" S4 q1 R/ q1 w'
' 功能说明：
" Z2 [* P- W7 i  z' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
5 w8 E4 c7 Z& K0 x6 ?' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
& v% O( F  R  a# Z/ w" u' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
, C7 X8 {9 L) }( B' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

1 f0 ?% B$ |; }( E; x3 U+ c  zOption Explicit
# O) W& M0 }) @
' 获取当前目录的路径
" E  r8 B# v8 `. HDim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
  D6 \9 l/ c$ d* a" O; AnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

* l" p7 \# j# u) M% ^' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
0 ~6 ]. h& I; s7 P& g/ Y    WScript.Quit
. {) |# u* Y! T5 R8 ]. m0 ^End If

' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
- v" G) r2 F  K. T. W3 u0 B4 }/ L/ \1 `$ t    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
    WScript.Quit
End If

  }9 i, a9 d5 w: f" ?" W' 创建 FileSystemObject 对象
; R" q  w$ J1 l7 `# FDim fso, folder, subFolder
2 `' q; x# J2 g( W! a  @3 c2 MSet fso = CreateObject("Scripting.FileSystemObject")
# p9 a+ `4 r8 ~$ f: q1 j! S
# o0 P9 y4 a6 S' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)
. z  e# t' c+ i  e% U# w
8 X. b7 d9 ^' G; H1 E/ `8 r' 检查当前目录是否包含子目录
! b3 o$ Q- J/ \8 aDim hasSubFolders
8 ^  B' c/ @7 ThasSubFolders = folder.SubFolders.Count > 0

' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
  I% Z4 A0 q8 Z- c8 JDim modifySubFolders
3 n. P4 {5 [. V- T% n9 \If hasSubFolders Then
    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
1 c7 v: b2 @7 E# p& [End If

8 {6 P7 ^" E6 x' x' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)

' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
7 K' a2 b4 T$ S  eIf hasSubFolders And modifySubFolders = vbYes Then
) H3 O) d+ j0 v- e    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
End If
: ?: n. @: a- C! X0 Q
' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
4 v' B. u+ b8 U7 N+ j- x  o4 T
' 处理指定目录中的文件的子程序
" B" ]. ^6 E# l6 E: v5 ?3 _% tSub ProcessFiles(targetFolder, newExtension)
8 D% e1 m' c3 h6 u2 @    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
! a' c: U' q2 ~$ |# |9 y
    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
: ?: \1 K5 k9 Y4 N2 e        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
0 A' x5 B5 P, W. A5 S* Y            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
' y2 e# \: t2 J8 \! M; `            baseName = fso.GetBaseName(file)
9 z9 }: e/ N% E  J) `/ p& o4 n/ h/ y            currentExtension = LCase(fso.GetExtensionName(file))

( y, Y, }' T: K            ' 如果当前后缀名与新后缀名不同，则进行重命名
' |+ p: u6 ]- P- E1 e( H            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension
; n8 G( q0 n: m  N9 P
                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
                counter = 1
8 b8 ]  h, N2 f: `+ j% c1 j                ' 确保新的文件名唯一
& E2 k$ G& I; j8 e6 H- U                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
- K' ?* w5 g3 R1 {" s  R                    newFileName = baseName & "(" & counter & ")." & newExtension
" q- `; }# g4 \$ ^# {* G" C                    counter = counter + 1
* J0 o, g/ F7 n1 o' X& s; S' U6 ~! O, \                Wend

" B# P/ ?. m) n  x; ^. F                ' 记录新的文件名
                nameDict.Add newFileName, True
: W# c6 U# V. O+ |. n4 {
                ' 重命名文件
! A0 E# P$ n# ~( [                file.Name = newFileName
            End If
        End If
5 W/ F1 h# E& M9 d, D$ F    Next
3 S. p- q0 N5 k, u' b: @End Sub

  _& I3 u, x4 n; `

0 k: H4 [5 `: |& g* n2 f

dzd172

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

xnick666123

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