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

嗯遛狗

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

, _$ X4 L, Z3 E) n: d( p
( h! @2 v( Q0 _6 d1 m) ~9 L- N1 E' 修改文件后缀名.vbs
* o  `1 D2 W" T3 Q0 i, p'
  _6 E) Y2 b' Z  m' a$ `3 o' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
0 c" _  j, E7 J0 B* G5 |4 C' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
8 V7 [5 }& a; S; g" e' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
" {, P0 B  p7 K- ?% u' D' y" C: v* E' 2. 双击运行脚本或通过命令行运行。
. H9 \. L" R- m3 R' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
: t5 i3 `( V1 R( c: O0 p' 6. 完成后，脚本会弹出消息框提示操作已成功完成。
# r$ c- S) y! E9 N+ r
( `8 n( J5 `% R; w- Z5 ~) c# w( aOption Explicit
' k' F- Y7 `7 ]; f. g
' 获取当前目录的路径
4 |4 R6 N; |( O7 d. t7 ^Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
: K( h8 `& ^+ p2 s: r' y9 ]
' 获取用户输入的新文件后缀名（不包含点）
1 i& m0 Y2 j, j; B4 @7 c- CDim newExtension
/ A0 ?9 w6 q0 c' y6 Q4 D7 dnewExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")
2 l; p# v; g* w, N8 B% y
' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
    MsgBox "操作已取消。", vbInformation, "信息"
% I/ r" V  [; f' n    WScript.Quit
End If
3 B; N! ~8 d& n) I! m- d
' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
    MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
7 D& V0 T2 W- w6 I& z    WScript.Quit
$ Z6 `: h4 Z. u' P" d# wEnd If
' \" b, ^: k8 R, w  |9 R
+ l4 r2 R; r) o& a6 k8 S' 创建 FileSystemObject 对象
6 }& [/ N& F. s$ l8 eDim fso, folder, subFolder
) v) @3 K0 H, K3 Q; zSet fso = CreateObject("Scripting.FileSystemObject")

. q9 y2 s6 [  C1 [+ m' 获取当前目录的 Folder 对象
Set folder = fso.GetFolder(folderPath)

5 }. r  E& E+ ?% \/ f' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

" ^1 S- Z3 @& X6 l& F+ f' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
If hasSubFolders Then
8 n8 g3 X! O0 R4 Y    modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If
8 }- J, t2 a# w
& E5 }% I, W9 x) ]# b$ Z% y6 y' 处理当前目录中的所有文件
% \4 S, I: ^9 l: FCall ProcessFiles(folder, newExtension)
3 R0 l& |& l+ M
' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
    For Each subFolder In folder.SubFolders
, W1 M( U( w) b2 V' y# R; l. @        Call ProcessFiles(subFolder, newExtension)
/ b- R. h  V. j7 K) x    Next
% d# r; {  f: H3 U$ c$ G, P  b" Z. k  IEnd If

. }2 v( a9 T3 T4 r6 C" D. S' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

' 处理指定目录中的文件的子程序
. w' A. F! b* O6 C- n0 RSub ProcessFiles(targetFolder, newExtension)
( f3 `6 X2 s" V; d9 F2 g  o/ d    Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
$ E6 N* h6 F0 B7 t$ W    Dim nameDict
5 {7 ^; h  n0 ]
' ^  Q/ q! o8 ~    ' 创建一个字典对象，用于存储当前目录内的文件名
    Set nameDict = CreateObject("Scripting.Dictionary")
) k2 F0 }5 {% U3 w8 B8 n5 j1 b
    ' 遍历指定目录下的所有文件
/ g/ @* u/ x1 j/ b    For Each file In targetFolder.Files
) ^2 {6 m$ z6 r+ R        ' 跳过后缀名为 .vbs 的文件
        If LCase(fso.GetExtensionName(file)) <> "vbs" Then
/ m) U$ u- T# \+ }1 P" t            ' 获取文件的旧名称、基础名称和当前后缀名
            oldName = file.Name
* R2 V8 W: P+ [            baseName = fso.GetBaseName(file)
            currentExtension = LCase(fso.GetExtensionName(file))

            ' 如果当前后缀名与新后缀名不同，则进行重命名
            If currentExtension <> LCase(newExtension) Then
5 ?4 u. E0 q3 t) V, ]& Z1 M+ h7 w                ' 创建新的文件名
3 [% C4 w- ~( r' N& u8 n                newName = baseName & "." & newExtension
2 y# D, n. I8 w2 d! A, Y
. Q" `$ l$ I2 O# n# N                ' 检查是否已有同名文件，如果有，则处理重名
9 ^, C( r2 x0 n9 K' |4 z                newFileName = newName
                counter = 1
0 D5 E9 N& v* f; K5 \+ x4 C+ f3 P8 t                ' 确保新的文件名唯一
                While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                    newFileName = baseName & "(" & counter & ")." & newExtension
                    counter = counter + 1
( a" p" H. H7 j' c% ]                Wend
5 [- `" B  x' S/ V
/ x# s$ p! `; M                ' 记录新的文件名
                nameDict.Add newFileName, True
' |5 M0 q- z  j& u* @$ `
                ' 重命名文件
$ [/ V/ B$ g) n$ G% [                file.Name = newFileName
5 t" |7 A* E, L3 T5 h- N$ Y) G            End If
: ]1 u) [6 u7 @9 M( f        End If
    Next
End Sub


8 d8 G& d& m- R+ q9 }

dzd172

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

xnick666123

微软store里面装个微软官方的powertoys里面什么工具都有，哪里需要这么麻烦哦