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

嗯遛狗

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

9 Y# ~/ X4 `# p$ m2 G! ^, m
5 O7 ]4 U" d7 s& [3 F% y- {' 修改文件后缀名.vbs
$ f# D- {, [! s' e" {: P+ P'
' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
* m- K+ F" K2 ~1 F'
' x# `8 `8 h4 C: J: B3 e' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' a1 }" [5 J- \) s* I- I' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
. e& j! M# |4 `7 }$ s
Option Explicit

' 获取当前目录的路径
Dim folderPath
& j# ]8 l* F' C7 y2 N: Z4 J5 ~folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

" e3 P) s8 k8 V# M' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
4 u. P9 [1 s7 v' gnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
4 ]" ]! H2 ^! ^( \# N
' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
; U) E. O) S2 a+ v    WScript.Quit
End If
2 S6 z3 f7 t" Q' ]1 j6 t9 D
' 确保新的后缀名不包含点（.）
) [9 z6 y& h2 N+ ^& y2 X6 pIf InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
8 m) A5 u# B; m    WScript.Quit
End If

' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
" G5 {. Y  T  X6 ]; _Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
% s. b% D! u4 a, f, w, M9 l0 XSet folder = fso.GetFolder(folderPath)
" ~; J* H- d8 r5 s5 V& ~5 s/ r2 c
* b3 @6 {/ c8 T+ u4 V' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
2 O; Y2 J: Z# e2 s$ L1 _Dim modifySubFolders
, P- O, T# s1 V! i4 W  l& s' P2 V' vIf hasSubFolders Then
; X! m1 K, l% r    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If
$ d2 D: A; y- S$ t5 M: a" L& j
' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)

4 X6 u$ ~1 h, o/ o7 a& O' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
. x# d/ `5 Q1 C0 I# FIf hasSubFolders And modifySubFolders = vbYes Then
. y+ X9 G( O# _    For Each subFolder In folder.SubFolders
( X* L5 r5 u  g        Call ProcessFiles(subFolder, newExtension)
6 A0 V1 J" t$ K8 E  Q1 K& y- r    Next
0 f5 v" i3 ~* ~3 j# iEnd If
+ B& ^2 n! L: f
* x+ B2 g8 N6 ?; V& X' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
5 i9 A- `% _+ b- ?! T; L# C$ O
' 处理指定目录中的文件的子程序
* ]2 ?  h" u: i" _0 fSub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
5 m; t2 ~  r8 d% ]/ [    Dim nameDict

    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

    ' 遍历指定目录下的所有文件
6 P4 N8 Z! ^; v3 v4 F: Z3 T    For Each file In targetFolder.Files
7 [" `$ L' ?5 m9 d/ j1 ~        ' 跳过后缀名为 .vbs 的文件
: f% ~; k3 }$ w" D2 ?0 \: y        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
% J1 e# m$ m8 E0 m            ' 获取文件的旧名称、基础名称和当前后缀名
; H) [3 ~: n/ J5 @            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
3 _5 w. b* O- Z
. C- k0 W* t; c, ]  `$ g            ' 如果当前后缀名与新后缀名不同，则进行重命名
" i( x4 T2 C/ Q            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension

                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
                counter = 1
$ L& r9 H+ [8 v! L0 f3 k$ P                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
1 f4 e0 Y$ v. I$ {0 a6 ?                    counter = counter + 1
, ]! K; {% r1 R                Wend
4 ]  g8 ~) o! I0 m8 U, M
                ' 记录新的文件名
                nameDict.Add newFileName, True
0 L( o8 Z; E8 A; M, h
3 N6 B7 |+ E% y& [- x8 I1 N. \                ' 重命名文件
                file.Name = newFileName
            End If
        End If
) F* S: D- r. {5 I3 E! a    Next
. T: I3 P- R- S, gEnd Sub
8 B% c4 U1 N. v

8 B  Y: M( H3 G' u# a
8 x7 ]8 ^2 K. T- F% }

dzd172

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

xnick666123

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