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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
! _6 X( P( r7 _' j. ~" B" \1 |

' 修改文件后缀名.vbs
'
3 C% ~) _7 W& g" H! [2 v' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
, t( b8 \5 {% j) R' s) w. T'
' 使用说明：
3 b0 S* |0 J# L6 _' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
" ^& d+ t* V$ j4 x' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
, C( p* N6 S" D
: t, M4 e  E- d5 Q1 Y# Y3 iOption Explicit
6 d# d0 E& @8 \1 P/ m& h$ f" A
# l; _0 D/ N9 o; r' 获取当前目录的路径
$ t; m5 K8 I1 @8 h4 KDim folderPath
  h9 z- a, F% [7 }+ y* {6 Z* d9 xfolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
6 V5 ^  T: o$ l2 y
5 s/ [0 o! I7 z( z3 R1 m) v' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
2 J( w1 y3 {4 E    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
End If
; x+ Y" d" j9 L" k1 u( F
; f5 s4 k- p2 ^- e, s4 K% a* v" ]' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
8 ~$ t+ s0 P$ G7 V( [* |    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
- C9 ]) V8 N; g9 b: t( b5 r    WScript.Quit
6 |9 l) L; l# Y( J4 EEnd If

' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")
" s8 u- O2 U& d" a
8 P! G& ]; B+ i' 获取当前目录的 Folder 对象
5 y$ M) Y/ X, U: }9 _4 tSet folder = fso.GetFolder(folderPath)
$ R  b0 \& b0 t5 O! L$ ]
+ P# d4 p/ M' w! ]) f9 P/ {0 |3 O  z' 检查当前目录是否包含子目录
" e/ }+ j) n) U$ u* JDim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
6 d; V2 o: W! ?4 ]3 J# u
' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
If hasSubFolders Then
3 p/ m- a: E, }    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If

' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)

' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
# r4 o  D2 b" c3 C5 i4 `: f( C4 N: NIf hasSubFolders And modifySubFolders = vbYes Then
# o* o- M: Q" d7 ?2 y! {    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
End If

$ ~3 c+ v" \% w. d; h! m8 p' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
3 f# M& h# u4 t# B5 {6 o% {
' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
6 ^; N) q: d0 n, T+ _7 @% c    Dim nameDict

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

    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
0 i7 _# i/ u% B! a6 o2 m- v+ k/ \2 ~            oldName = file.Name
2 N/ G! d) Q2 _: \' p! W            baseName = fso.GetBaseName(file)
5 n" n( w$ p9 W2 e            currentExtension = LCase(fso.GetExtensionName(file))
8 g4 V$ N' F; U, }" h
            ' 如果当前后缀名与新后缀名不同，则进行重命名
( ~: U9 t# o8 U; `. H; L/ Z; k            If currentExtension <> LCase(newExtension) Then
. q( N9 S" ~- B2 M                ' 创建新的文件名
% c: q# Y* b. N3 o                newName = baseName & "." & newExtension

                ' 检查是否已有同名文件，如果有，则处理重名
6 H9 E5 z) S; u% ?5 v, j& r( r5 P                newFileName = newName
                counter = 1
% f! @% G  I! P                ' 确保新的文件名唯一
2 p6 _" |0 E9 P# a( n% `% Z                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
+ ?  ~9 g9 S6 T: O8 ]/ _: I                    counter = counter + 1
                Wend

                ' 记录新的文件名
+ A, c; W+ v# E4 D8 ?1 X                nameDict.Add newFileName, True

                ' 重命名文件
% S3 g: T" g# m                file.Name = newFileName
            End If
- L4 Z# F: j" {. D! @        End If
    Next
( U" `7 x; e+ l6 t1 ?# ^4 gEnd Sub
& ^  k; c0 c/ M1 ~0 r$ a

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
" n2 ]2 D' ?8 ]" I8 c