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

嗯遛狗

分享一个自己整的批量处理文件后缀名的脚本（以下开始为脚本内代码，可直接复制粘贴使用，也可投币购买）：
8 ~' W1 e& ^1 U; n7 v% U
6 x, A" U1 O3 ~5 u
' 修改文件后缀名.vbs
'
' 功能说明：
: {4 n( g6 C6 a+ D: q% \) @' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
7 X6 g, M# \1 u% `7 o  U' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
9 i: Y* x  l+ `- I' H9 a- a' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
, |8 n3 x5 L+ N6 t1 v. q' n' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
# _' h& a7 O0 c' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

Option Explicit
) z9 c' T( F/ I5 `& e
$ P2 K. u# ^3 v7 C/ H' 获取当前目录的路径
- D2 J& [; W* y- ]. u/ ]/ ADim folderPath
- E+ G) N7 Q4 l1 H  |5 E  ^+ E3 ofolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

+ V6 r: ~/ D/ D  d: u) t3 g' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
* T$ p' \% D. V- ?newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
4 Q/ j% }5 D, F. C% G" E
% ]8 H" O2 j( f$ E' 如果用户取消了输入框，则退出脚本
" z  b3 H, f- e. F- }# FIf newExtension = "" Then
; i' `5 j4 W' M9 a3 {1 k/ @9 Y3 d    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
- u' p# W1 @$ a& j* v  G5 i6 Z$ e7 kEnd If

# Q8 \8 j6 F6 G2 e4 |9 ~1 Z* z$ F' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
. ~+ A8 z/ g. i4 u* _, [4 T    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
' N' |) }6 g# ?8 N  E2 ^. a- a. j    WScript.Quit
End If

' 创建 FileSystemObject 对象
3 a7 v) P* w; W* pDim fso, folder, subFolder
. R. _+ U/ V8 ]Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
( ?' t7 P3 U4 d; W9 ^$ HSet folder = fso.GetFolder(folderPath)

8 c- p/ d$ h% r0 o) O' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
) @* Z! y7 ^& C4 E& C
' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
1 `) k# W: k; k3 l4 o6 x! v' FDim modifySubFolders
If hasSubFolders Then
. f4 Y4 x( ~: h    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
/ M; k* ]# ]" k) B/ ~! a2 dEnd If
0 w/ K/ b% P0 w3 G5 t
' 处理当前目录中的所有文件
( L3 U( _4 x* SCall ProcessFiles(folder, newExtension)

3 I! p+ [" B" @4 P3 k' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
& L& }- ?5 }4 ^* f0 {+ HIf hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
- _; v" M) D; a- @& Z9 f* v    Next
End If
3 l+ C$ o* n0 G2 U6 K4 Z
' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
6 r! a) I: y0 N+ d    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
0 u, A' ~+ d: b: T* j1 ]) _7 m    Dim nameDict

    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")
7 |! H$ j# u; L3 P/ Y! |
( e# ?( b- y1 b# p3 m8 x* f    ' 遍历指定目录下的所有文件
) P% c" f" U7 O5 P7 w$ s+ I3 u    For Each file In targetFolder.Files
  s: k3 I7 Y* j' Q  {        ' 跳过后缀名为 .vbs 的文件
! w" f( @- R4 }& k: p$ F% v, @        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
) ?+ W& Z1 b- P            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
+ F3 Y) Y5 Z2 d0 S/ O
: B& H: S5 n) p, l4 c5 ]            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
  J  b) X% y1 B! i3 \                newName = baseName & "." & newExtension

                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
                counter = 1
                ' 确保新的文件名唯一
, j4 R/ F, [1 Z: W) v: c( n                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
+ z& l  B; T* j) Y                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
                Wend
' y, Y. b6 X7 q, a/ ?3 @
8 {  y* J/ v9 v7 B0 c0 T% A                ' 记录新的文件名
                nameDict.Add newFileName, True
- V' B; p0 }: X8 f
  b, i" q  ]/ x                ' 重命名文件
0 i  v' h- E2 P' R* J                file.Name = newFileName
4 j, ~% \$ W( Y  r* }( Q            End If
        End If
7 U/ S# h2 V+ Z- a" c1 y- X    Next
" V1 R  v2 d$ m) ?" O* C$ ?End Sub


6 c5 e$ O! o  }/ N& x9 s

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
, D% W" |2 J% a  B% b