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

嗯遛狗

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


, K2 a6 @& a" p. d. y' 修改文件后缀名.vbs
$ W8 D  x* v, d  \% ~- a4 v$ i' ^'
7 Y! E% a" Y6 L/ ]3 D4 l  E' 功能说明：
, H+ E1 U9 V2 K6 k8 S8 m' a: U' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
, q( Y# U9 Y8 b8 @( g' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
$ I: k9 X1 ^9 P5 J# W'
- k% n3 k" V; \, f' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
6 \% G# C+ ~5 @) {8 c) _* W' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
) q1 o1 C7 C4 B- q8 p: q' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
7 P4 }& L* x- b5 z( k/ R* p( L  D5 T
Option Explicit

' 获取当前目录的路径
Dim folderPath
' E, [( [! k' u( KfolderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
4 f# V- g" n  |( [Dim newExtension
) W; m3 }( Y. t' W6 s/ WnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

' 如果用户取消了输入框，则退出脚本
) }; G9 t' w+ f; p; B, aIf newExtension = "" Then
+ }- B7 E( y  N& {3 b. l( \    MsgBox "操作已取消。", vbInformation, "信息"
    WScript.Quit
End If

' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
* V- z5 @5 j6 h0 w3 S    WScript.Quit
End If

2 W9 P! l$ U) `9 l3 P# [0 @8 G' 创建 FileSystemObject 对象
6 R& m7 c: K0 {( s! MDim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")
3 P3 a  M6 C& q: u! |5 i
6 @3 U2 D  ]5 m5 p* J* \7 z8 q' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)
8 U0 k; {9 D9 H& \7 k  [
' 检查当前目录是否包含子目录
& A( l! m. V9 H  V+ q. R# j4 ~Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0
! H# q+ H8 a( X! s( s0 r3 F
+ O8 C# r6 ?) E' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
7 E; F8 G( u& L2 z8 {; z1 gDim modifySubFolders
If hasSubFolders Then
( D: ?: i2 U5 e8 x  s1 J    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If
* a1 i* Q$ K8 }
' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)
; j+ x* D3 j2 ?$ l+ Z9 L
' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
        Call ProcessFiles(subFolder, newExtension)
# I" f: [) s$ o4 x+ V0 i3 p    Next
% @' f7 U1 l9 ^End If
" q$ ?& d2 d: n6 g+ w
' M3 f$ k9 F1 G4 T0 ?2 J3 R' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

$ O; r# [. d9 O5 m. }! A' 处理指定目录中的文件的子程序
- _6 u, C, D# U+ {Sub ProcessFiles(targetFolder, newExtension)
! w% b" a5 A2 d; O    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
/ s, k) E1 t3 P  C    Dim nameDict

" c- K5 g) K. d; \6 c    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")

; h" |! V  K: ~2 T    ' 遍历指定目录下的所有文件
7 K/ n7 g2 X/ o9 M    For Each file In targetFolder.Files
8 v: a; K4 c9 [! F4 R1 a7 N/ U        ' 跳过后缀名为 .vbs 的文件
7 o5 {- ~4 ^4 {! k5 e        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
  g& G# \; t: X- A# E            ' 获取文件的旧名称、基础名称和当前后缀名
& P8 e$ D  r* |            oldName = file.Name
            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

* Q3 z( }; \1 ^' x            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
                ' 创建新的文件名
                newName = baseName & "." & newExtension
4 f$ M: i0 L8 S2 T- w; p/ m  S* y
                ' 检查是否已有同名文件，如果有，则处理重名
9 F" f+ p4 L4 P/ k7 ~4 H- T* l                newFileName = newName
                counter = 1
                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
5 _& D2 L* s7 W6 T! r0 X                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
                Wend

                ' 记录新的文件名
1 s9 Q4 a4 l; L) N5 Q+ c                nameDict.Add newFileName, True
  ~; i0 ]& m5 P4 v+ w3 q
                ' 重命名文件
                file.Name = newFileName
$ D/ y! \# d8 o9 J  I5 r            End If
$ s7 ~! v* R3 l9 e- |3 `4 s        End If
; }# x$ g* n9 _1 k    Next
) {, ]7 |, r" _  K( x7 [End Sub
! e0 Z. o; ^: t- |( q$ N


# l& k; ]1 x/ ?$ {5 `  [  z

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦
) C& d" l! [8 Z: s