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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
+ y# n9 g" o! b0 |
2 W. z' F0 d. g; o- g+ }0 S
' 修改文件后缀名.vbs
'
' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
+ z% I9 h& R- ~' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
/ n& o7 p5 P" U! F' y- j; l' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
9 }/ s+ @( ?& C' {' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

9 [% \* t4 e2 {1 d! BOption Explicit

3 n1 u  ?* z2 H& y7 B) C/ h6 t2 l' 获取当前目录的路径
Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
0 f  _' U! r, Y8 K0 A' x( E
' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
8 }% f- b. o& r5 _* F    MsgBox "操作已取消。", vbInformation, "信息"
. v! f. J8 A* D0 }3 T  \4 Q/ q    WScript.Quit
, S! w1 |+ C1 o% d: t. h/ X& P- ZEnd If

' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
% X/ I+ O7 Z  H. E$ `4 j$ p    WScript.Quit
, a$ h& O1 s5 D( p2 j  REnd If

' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
! D/ b" _1 w+ z. E2 G, [9 LSet fso = CreateObject("Scripting.FileSystemObject")
; v$ q# F0 H4 ]/ r4 S1 C
' 获取当前目录的 Folder 对象
/ o1 m9 [6 L) c2 |# f, fSet folder = fso.GetFolder(folderPath)
; O6 H# [+ u: ]. x& P, H' I
' 检查当前目录是否包含子目录
Dim hasSubFolders
) S! c8 d; h$ Q& W2 lhasSubFolders = folder.SubFolders.Count > 0
8 ^2 L9 v" _& a, N
  x3 l5 \, D+ v6 T' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
2 o& ?5 `, F8 V0 U, Q7 ~/ Z; DIf hasSubFolders Then
* J4 U4 Q4 \$ N% X# R3 A    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If
1 f/ z' l  t$ |! U3 J" `
  ^5 }* Y9 B( l' 处理当前目录中的所有文件
: I; S! Z3 _7 i3 [Call ProcessFiles(folder, newExtension)

' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
' E9 [" V; u1 O) \If hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
$ e$ P6 @" m6 Q! u0 z" n    Next
End If
3 [% ?% A4 b! }3 Q6 t
  T7 ^6 U$ r0 w$ a4 j2 Z. J8 y6 X2 l' 提示用户操作完成
6 t. [( k, o0 Z  H* j9 OMsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
  g: k. k, p6 K4 m# f9 r
' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
, \0 ?* J0 c. Y+ ?" r4 G0 z$ P    Dim nameDict
! z& n8 Z2 [" u, G  h1 l# d
    ' 创建一个字典对象，用于存储当前目录内的文件名
! B+ H- h2 j" O8 M6 M    Set nameDict = CreateObject("Scripting.Dictionary")

% @5 B- m' p+ o$ P! D    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
/ A! L, i" C6 u. w- ~, b& J+ T3 H            ' 获取文件的旧名称、基础名称和当前后缀名
3 K$ L. {6 V0 r7 H7 I, |; j            oldName = file.Name
            baseName = fso.GetBaseName(file)
% u3 e: c! U4 @2 ?            currentExtension = LCase(fso.GetExtensionName(file))

            ' 如果当前后缀名与新后缀名不同，则进行重命名
: c6 K# ^# G0 d, @! R2 |' X            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension

; L/ q2 B: Y# a. v# f                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
5 n1 Y  B! w7 X9 v" }7 m- ^0 A                counter = 1
                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
! h- I0 T' U( u2 I                    counter = counter + 1
                Wend

                ' 记录新的文件名
                nameDict.Add newFileName, True

                ' 重命名文件
                file.Name = newFileName
+ w) `" i8 I: Z/ A4 K3 A  c7 ]2 n0 J            End If
        End If
9 b4 w  a( \; t    Next
: O- i$ u  Y# C2 H" DEnd Sub
. S2 X+ ?. Z6 ]( a& P1 F+ p: R- L
5 `/ ?' P! a. p( \

dzd172

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

xnick666123

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