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

嗯遛狗

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


5 q( O# a( u$ |$ q' E. B1 a' 修改文件后缀名.vbs
'
& Q5 R' P6 T) q) F4 I. }' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
2 d, Z" Y! E; s$ X( b# H+ t'
" t4 N1 P" w- L% s( R% Z' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
9 {8 \  f: T" T+ w/ n. y( V' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
6 Q( V+ F2 |, f4 r' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
/ o  m5 `. Z0 Z8 h0 M5 j1 D$ ^' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

3 W! o& n5 ]$ _! I1 R% MOption Explicit

' 获取当前目录的路径
Dim folderPath
8 L+ S% ?: k+ f5 ]4 ?3 HfolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
5 [+ X% {& d- g' t! a+ E
' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
" u. X$ V1 c! I  [8 ^( ^# OnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
6 T& j. \3 E# t9 V) f; z: u
* |/ S% U: J+ A2 c2 z' 如果用户取消了输入框，则退出脚本
6 e) ]: o6 q, p+ b" r3 m- nIf newExtension = "" Then
  }/ ?) c3 j" u5 ^  w4 l    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
8 {6 c# F& C4 @6 S* \0 ?End If

' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
    WScript.Quit
; j  l# U7 [  n1 W+ X, H6 a! \4 REnd If

9 W; B$ v1 K# ]) s' ]! b1 w' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
" U) W' i  P7 L1 Q" ^4 pSet folder = fso.GetFolder(folderPath)
7 d; V& U% ^& j/ R- Y
) i) E+ [1 v$ J' P& A' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

* M0 L# c! J7 D9 f% B, u' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
  u% f0 Q  C! |3 ~- n6 aIf hasSubFolders Then
    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
; t, t' v# Z& U. {) ^$ M& w- p9 vEnd If

% {' K/ a$ r1 s2 [8 K: w' 处理当前目录中的所有文件
: f* ~$ T1 a7 @  TCall ProcessFiles(folder, newExtension)
1 `; y1 N# O# S0 B: o, K. Z) F1 |
% h! a- Z- w) P7 w+ t' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
1 e4 l* }) s7 z# f5 h# x- E, CIf hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
  z  _) D; ]) L4 i4 {: c+ G        Call ProcessFiles(subFolder, newExtension)
    Next
/ L7 a& ~+ }7 |End If
" m/ r' a6 R3 `$ ~. Q, m# t/ r
: H" c& ?% o* y' l9 N4 S4 r; s2 c- H' 提示用户操作完成
/ `: [# T, I& l0 CMsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
1 e# Z2 G% \9 ]) h$ t1 ?' r
' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
2 G1 h2 g5 _3 ^1 D    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
- z' B: @) E& ~, h/ t3 ^    Dim nameDict

    ' 创建一个字典对象，用于存储当前目录内的文件名
- C3 U* [0 m: x2 P  g6 R* ^; r0 r+ R    Set nameDict = CreateObject("Scripting.Dictionary")

    ' 遍历指定目录下的所有文件
& T! L/ Q) Z9 j: L    For Each file In targetFolder.Files
5 {/ k8 }# i: o- ^+ [* T        ' 跳过后缀名为 .vbs 的文件
        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
" u3 t* P+ Q$ Z! N+ L            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension

$ E) ^6 l5 @5 L* h                ' 检查是否已有同名文件，如果有，则处理重名
) [  U8 M5 i3 d+ C- ?- M$ {0 L                newFileName = newName
                counter = 1
                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
- T* z3 M$ Q; C0 c                    newFileName = baseName & "(" & counter & ")." & newExtension
: Q# B& P' k4 c9 b# A# |: Q. y                    counter = counter + 1
                Wend
/ _$ G) s  g, ?
                ' 记录新的文件名
                nameDict.Add newFileName, True
6 T  @+ ]% w. m5 n7 p
4 @8 u  M! ]: k4 `  t* }& `                ' 重命名文件
                file.Name = newFileName
            End If
        End If
9 t) K* g7 x3 v* x. }; c) o+ S    Next
% L9 N6 G# R# |$ Q* z/ n* EEnd Sub

& ~  Y8 a2 J, \+ [6 V
% R! z* O$ Q  z' {/ n! r1 j
8 e7 G) [; \; a: O: E& _9 ]7 D

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
, N7 a- G& \8 C