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

嗯遛狗

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


& _6 F. v) ]% u. I% q5 f" X' 修改文件后缀名.vbs
3 b3 n* W) u4 \'
' 功能说明：
. b. B0 D( j; m  b7 M' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
  _" {3 Z) Y) J1 {8 q- G+ W1 e' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
3 T0 `/ F5 N# Q/ p# ^3 I; s' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
) H( b" q5 p5 l7 k9 I& [: \  M5 [' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
- w9 Q# O+ _3 I/ O3 V' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
/ W5 w6 x+ A: c' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

Option Explicit
7 ^* O. Y1 t0 {! k
2 [: \' N3 y* k+ E# `' 获取当前目录的路径
Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
9 _" |# N' i3 S4 H
' H1 x) u/ C: T# i( z4 |' 获取用户输入的新文件后缀名（不包含点）
, R8 V, o2 r/ Z8 f- _Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

' 如果用户取消了输入框，则退出脚本
- }( \! j6 J8 W  D5 z" ]If newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
5 Z3 m# f$ _5 e; T$ w: V. x/ e    WScript.Quit
End If
9 Y. }3 u4 g5 b# {1 Z, v" {
' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
# I- ]8 X1 I3 d    WScript.Quit
End If

' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
: A( B5 ?) z2 R3 z) RSet fso = CreateObject("Scripting.FileSystemObject")
4 j/ l6 h1 J; Z% B# Y( w# l
' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)
* g! W8 u: h- M% |, ^
' 检查当前目录是否包含子目录
- U3 j; ~5 j* |# ~Dim hasSubFolders
3 b. |8 @9 ?( r4 WhasSubFolders = folder.SubFolders.Count > 0

' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
8 o2 e  h/ j$ L% j1 ?Dim modifySubFolders
If hasSubFolders Then
  I# z# m8 T8 ^    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If
% d7 j' D" l+ C2 J6 S' S4 K
' 处理当前目录中的所有文件
# T( L3 V% g4 D! P$ v  ^7 sCall ProcessFiles(folder, newExtension)

' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
( i9 _2 w& I0 ~6 J& D    For Each subFolder In folder.SubFolders
0 d+ f7 I$ h+ H        Call ProcessFiles(subFolder, newExtension)
    Next
End If

' 提示用户操作完成
; V& h) z+ B2 LMsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

' 处理指定目录中的文件的子程序
' f& q7 z+ N0 x& ~6 S* U# J  p, ASub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
1 k6 y( S4 m5 `/ K; d
    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")
0 L0 N0 i  f6 D& t/ u/ d1 \
3 E9 j; a" P6 H    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
( Y( n; q& _& H) M( d; Y5 f0 H        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
! o5 w: c/ @/ w% \: e4 S            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
9 S9 M6 F& M! {+ J; C* L3 e1 t            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
# N3 N' a9 j- ^# [% l5 u
6 }( S6 ~: Y' _  i. i8 Y* Q0 k            ' 如果当前后缀名与新后缀名不同，则进行重命名
2 Q) k0 g; D# B* b" U, ~- f% a8 K            If currentExtension <> LCase(newExtension) Then
: ~6 V  k2 [9 P                ' 创建新的文件名
; G% J7 q. ^( B2 g! I                newName = baseName & "." & newExtension

* O$ j5 k* Q; Z# M' d8 P- }/ L                ' 检查是否已有同名文件，如果有，则处理重名
5 J* C+ }8 g9 j8 N3 A- e, n                newFileName = newName
  t9 m+ x  [" q  s                counter = 1
* l) y' b" M% X+ a  M' l                ' 确保新的文件名唯一
3 o8 W1 ^. e2 J4 O' k9 y( n                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
3 i' K" Y" \0 ?' p+ Z                    counter = counter + 1
" T4 X% x5 ~! Y  p                Wend

( k4 q4 _; {  {* ]* t5 u. k8 y                ' 记录新的文件名
                nameDict.Add newFileName, True

                ' 重命名文件
4 ?; g0 r' j( A# Z" Q8 h                file.Name = newFileName
/ J8 S: w0 k8 A" e4 Z/ H            End If
9 ^  O. H% U4 B+ [3 A        End If
    Next
End Sub

4 Q4 E* A! K6 K
* W, r. s/ ?) e* K: ]7 t, s% ^# W

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
  m' x; H: l# {: M5 s( b/ {