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

嗯遛狗

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

+ M" C4 f9 W3 |& @
' 修改文件后缀名.vbs
2 k5 c3 A8 u4 R+ Z/ W'
' 功能说明：
+ f% a& `, x: T/ t! k' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
( [6 W% l0 Q5 _+ n6 z7 s' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
7 \* o" `2 |$ g) @0 N/ C9 z" W. ^9 g' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
9 g: Y! b( P) P: H7 q" O
1 L; S" D( \; z$ `( H, @8 C6 dOption Explicit
* Q2 h. a0 L0 ^: i' Z* p
" Q; d) n  [8 O# m4 A# q' T' 获取当前目录的路径
% ~/ Y4 ]3 r/ c; W) i4 ?0 aDim folderPath
1 ^1 N  I( v% f2 efolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
  N. J; `" Q8 u6 \6 T, ?8 fDim newExtension
* n& Y0 N+ R$ ]7 r7 P! V* NnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
9 ]' e+ V5 \& u# X
' 如果用户取消了输入框，则退出脚本
# }) W  q$ i9 X. N- @8 |. ]If newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
' e& Q5 z& _# x6 N$ Q7 N! d/ d    WScript.Quit
End If

' 确保新的后缀名不包含点（.）
3 O' q) W1 T: p& R8 J# yIf InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
8 J* O) A8 s0 q" Y2 D; v9 O2 w    WScript.Quit
End If
% a7 |( w" m; r' |3 e9 M5 i
1 }) `- b( E2 ~7 }/ z% M, W& I* @' |' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)

' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
& ]* D1 r  M7 a
' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
0 L! ]  O. I  T7 iDim modifySubFolders
9 F. e3 @, j* B6 R* `8 a  s  Z. TIf hasSubFolders Then
    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
9 k( v$ W* A/ v5 S0 hEnd If

' 处理当前目录中的所有文件
& o! x# w3 `9 o  n3 cCall ProcessFiles(folder, newExtension)
: b' A4 C# _" x% ^  T5 E
- ~2 E$ N6 Y1 ]# ~' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
# V( [# c* A% W  p$ N    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
    Next
- y0 s7 g5 F; R/ a' L0 P8 VEnd If

4 {2 I. |& `  p' 提示用户操作完成
% o1 T- [( b  P/ P5 c& L0 d( \7 IMsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"
" C' E5 e- }: C3 h
# O4 c6 y. j9 P% j' 处理指定目录中的文件的子程序
0 v/ a/ W8 g1 _- L6 e5 Y/ bSub ProcessFiles(targetFolder, newExtension)
) ]9 B/ f9 P) b% _% @2 `5 D* @    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
7 n4 B, _$ l3 b7 {( i5 {    Dim nameDict
8 F; D8 h4 D+ [- K0 T! G/ {
! F. B3 }( j7 V4 G  i$ `% `    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

! P+ v. n/ F5 l7 b    ' 遍历指定目录下的所有文件
    For Each file In targetFolder.Files
        ' 跳过后缀名为 .vbs 的文件
  K* d4 T$ a, ?$ V) X2 P        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
            ' 获取文件的旧名称、基础名称和当前后缀名
3 W9 ~" v, J4 Z5 k            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))
- j8 \3 n5 a' U
            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension

7 h! }+ A- r2 |                ' 检查是否已有同名文件，如果有，则处理重名
                newFileName = newName
                counter = 1
% }, F# u+ t; F7 r' V                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
$ q" F9 f) }/ N" [' E9 {$ M8 w$ K                Wend
6 w- a  w" X! ^% J, i
( L5 R7 _& p! A6 M# h4 M: [; p                ' 记录新的文件名
/ h; w9 b* {0 T# `7 [                nameDict.Add newFileName, True

                ' 重命名文件
; r9 B) s2 z8 F                file.Name = newFileName
, |& O$ U: |5 M% E/ [            End If
        End If
    Next
End Sub

+ F) F4 ~) [  f1 E" z" `) D

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
: v$ A( y* O+ ?