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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
) P+ }. t! \6 v
( p7 }6 X. \, s# ^5 W' C% q) T
' 修改文件后缀名.vbs
2 Q  L; o2 f* Q* H'
) P* m6 }2 ?" w% Z4 _6 O* Z' 功能说明：
( C0 `- B, s. G: Z9 J6 |' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
1 A  P1 \, N* v# _' r) [* I. _) ?' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
3 j& P, n6 g- j'
' 使用说明：
2 }7 ]+ g9 S$ S2 S6 K9 r7 c  t' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
4 U, R  o: L9 j, n2 C1 q) v1 i, D" B* S' 2. 双击运行脚本或通过命令行运行。
7 _* ~- e$ m+ O' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
9 s$ h. u9 g+ s! K- Q3 j' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

Option Explicit
4 d4 w& g# F0 B4 d+ o4 i
7 m2 ~6 A1 E! o- s( s4 \* j' 获取当前目录的路径
1 h7 h5 s" t% J2 A) {Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
$ k; O6 N& Y+ S. O$ D
% R4 f6 k5 D  R/ r1 [* |! B' 如果用户取消了输入框，则退出脚本
+ s7 G9 p+ T; k& zIf newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
& h* Q$ b7 _( ?0 W* F- x8 X    WScript.Quit
$ L4 K: U5 P0 n4 x# z5 cEnd If

' 确保新的后缀名不包含点（.）
  C* V6 L0 G6 s/ j- M6 XIf InStr(newExtension, ".") > 0 Then
7 s' ~9 Z3 c3 E' A) ^: X* [6 p# b    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
    WScript.Quit
5 m8 D( B: x2 @! F2 {7 B4 s* SEnd If
5 o; O- y2 V9 z: _( j+ i
' 创建 FileSystemObject 对象
1 X* }8 k2 S6 u! Y6 Z0 V5 A2 ADim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
* T% E5 n9 X( m" RSet folder = fso.GetFolder(folderPath)
' E# X4 |* L. n2 o5 J6 c
$ H' \2 A( b/ H! K  K' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
  Y2 E) }9 Q. E* \3 h
) N0 \5 h4 \$ ]' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
# O4 o( L0 ?# t! pIf hasSubFolders Then
, h6 j$ \% m, p) {  o    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
( t  e- H) p% w' y5 y$ qEnd If

$ B% ~) v& {! K& V$ {' A' [' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)
+ p. O9 s: v" G; e
; a5 t0 s9 X/ x, S! o+ k' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
/ [) W2 c3 d) h+ W  k7 B( x    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
End If
& N* ^  u  t+ [* `  M- N) X
" X& P& L/ B( y" m' E/ ~4 E' 提示用户操作完成
) t7 B) }9 y: g7 U4 B3 uMsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
" ~+ d  U" M9 t1 k  }" \! \; O/ O
1 n' Q( M$ U, ]& y5 W9 U' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
  x9 T5 A/ T9 \- u) D) O
  n! o* `* m7 x8 z    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

9 K/ Z2 c; l$ y8 s& _    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
- C% ^! R6 a- p) r        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
* d. J8 U+ c5 b; b  Z            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
( Q: C+ ]8 h1 O
- m, Z+ N3 h" w3 L+ C" W: B            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
$ Q3 h2 Y6 m6 p                ' 创建新的文件名
                newName = baseName & "." & newExtension

                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
                counter = 1
$ D7 }; N3 G( Y# L/ q8 y+ v) v                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
                Wend
$ S. [7 t, _! ~! c. H! r7 w
                ' 记录新的文件名
                nameDict.Add newFileName, True
% y. T- M1 _1 V
5 k& h; L! b: v: B+ h6 J                ' 重命名文件
                file.Name = newFileName
1 ?- v+ f9 e8 [            End If
        End If
    Next
End Sub
* [  M4 W: ~, X% ^

; j( t8 m8 N7 E3 [; D

dzd172

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

xnick666123

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