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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
# R& C7 d+ L. \  M3 {1 S

) D/ n8 a  F# `9 ^+ Q' 修改文件后缀名.vbs
8 a$ Y+ F7 A% C. v; t: ~'
' 功能说明：
' A6 J; s9 g, t, B' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
+ c& W9 U0 M) x8 C8 K1 ^' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
0 i2 `! j1 m1 P* F' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
; K2 M3 c- M7 E, b$ t+ J' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
6 i0 ^7 C1 J$ D4 l- m: c5 u! w' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
! W& E- Y4 W3 Q0 P7 b8 W' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
" W+ W5 p4 r' h$ ^, L9 `
6 L% F) f- l8 k( z: @6 _: d5 i* L1 ~Option Explicit
, q( V: C) ]( k' h' A1 k. y5 |! c. ?' u
7 i2 y% ^, \' X; E7 I' ?0 X. _' 获取当前目录的路径
0 K, k7 A+ L' NDim folderPath
% |$ x( ~8 }( G4 m* bfolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
" G# V9 v) Q/ F% p9 K8 b
' 如果用户取消了输入框，则退出脚本
2 ]; \" K$ Q- F" n! oIf newExtension = "" Then
# F0 d$ n, H$ ^9 g! N" e: R    MsgBox "操作已取消。", vbInformation, "信息"
+ |" M! Z: F& a+ X" u    WScript.Quit
; p/ T' x1 b6 K% F0 V7 c- iEnd If

7 b( a' V8 |4 Z/ P. p' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
- o' {* T8 j2 Z* }; k    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
* J5 p4 V( b3 t% k, R    WScript.Quit
/ a/ z# B; r7 _* kEnd If

" Q+ u6 Y: C& Z7 R. J' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)
8 H: S! i- g2 f' T( Y
8 Y0 X% }6 c" S% K' 检查当前目录是否包含子目录
Dim hasSubFolders
% b: K! u; {. I7 ^hasSubFolders = folder.SubFolders.Count > 0
" V3 z4 A7 T; V- S! W. G! g& d
' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
* ]3 r5 U. X" S& D$ n+ u% A+ [. TIf hasSubFolders Then
: n/ v9 l* y$ ]8 w+ p0 x1 n+ Q2 R    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
5 @7 u0 _# r) C: [+ W) qEnd If
4 z* ^7 j" C2 }( [
' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)
+ b7 K; O8 v6 N  M2 W# U
' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
8 @' i6 K; w0 z2 N  n, T! M4 ]7 ?End If

4 O; L* T" |- C& o8 x' n8 J1 k( l' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
) k$ ]2 \. z! w8 H# A
' 处理指定目录中的文件的子程序
% t& `: n2 p+ l4 ZSub ProcessFiles(targetFolder, newExtension)
2 A% c  @( ]5 V2 k8 S    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
    Dim nameDict
/ K. {- a. o3 X' A/ ]: N3 g8 O
) J! G% q9 F3 R( r    ' 创建一个字典对象，用于存储当前目录内的文件名
; S: C4 L" Q) h$ S5 W% L    Set nameDict = CreateObject("Scripting.Dictionary")

0 u# S% X% Y' u, Y7 ^; u    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
4 z5 A1 p: C) o9 m! `        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
7 k; P5 |$ b! A- J
5 f- W& X6 M0 C( \            ' 如果当前后缀名与新后缀名不同，则进行重命名
; {) K' w4 x; q2 }/ L, }( R( G            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension
( M5 }  }4 q* {# ]0 r- D  R  ~" o. t
. ?% X2 F. E) {9 W  a0 l" p                ' 检查是否已有同名文件，如果有，则处理重名
) U9 }7 E# z" t8 E0 O% }                newFileName = newName
                counter = 1
                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
) K8 f8 R  M0 W! j5 z7 Y) W                    counter = counter + 1
                Wend

                ' 记录新的文件名
                nameDict.Add newFileName, True

                ' 重命名文件
                file.Name = newFileName
: t7 T& H/ C. w            End If
' q2 f: f, B1 q' C( V        End If
8 D' q% z& G/ A  {& O: \, b    Next
7 w) n' E% {5 K% L% \6 b; x% lEnd Sub


/ g! z, C( y% C6 v

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
, w$ {* S) s8 d: C% _' ?