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

嗯遛狗 · 发表于 2024-9-4 22:38:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？免费注册

x

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

' 修改文件后缀名.vbs
'
' 功能说明：
' 该 VBScript 脚本用于修改当前目录及其子目录中所有文件的后缀名。用户可以指定新的文件后缀名，并且可以选择是否处理子目录中的文件。
' 如果在同一目录中存在重名文件，脚本会在文件名后添加数字以确保文件名唯一。脚本会跳过后缀名为 .vbs 的文件。
'
' 使用说明：
' 1. 将此代码保存为 .vbs 文件，例如 `ChangeFileExtension.vbs`。
' 2. 双击运行脚本或通过命令行运行。
' 3. 脚本会弹出输入框，提示用户输入新的文件后缀名（不包含点）。
' 4. 如果当前目录包含子目录，脚本会询问用户是否也要修改子目录中的文件后缀名。选择“是”以处理子目录中的文件，选择“否”以仅处理当前目录中的文件。
' 5. 脚本会遍历指定目录及其子目录中的所有文件，跳过后缀名为 .vbs 的文件。对于需要重命名的文件，如果遇到重名，脚本会自动在文件名后添加数字（例如 `(1)`, `(2)` 等），仅在当前目录内处理重名。
' 6. 完成后，脚本会弹出消息框提示操作已成功完成。

Option Explicit

' 获取当前目录的路径
Dim folderPath
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

' 获取用户输入的新文件后缀名（不包含点）
Dim newExtension
newExtension = InputBox("请输入新的文件后缀名（不包含点），例如 'txt'，将所有文件的后缀改为该值。", "设置新的文件后缀名")

' 如果用户取消了输入框，则退出脚本
If newExtension = "" Then
MsgBox "操作已取消。", vbInformation, "信息"
WScript.Quit
End If

' 确保新的后缀名不包含点（.）
If InStr(newExtension, ".") > 0 Then
MsgBox "请只输入后缀名，不要包含点（.）。", vbCritical, "错误"
WScript.Quit
End If

' 创建 FileSystemObject 对象
Dim fso, folder, subFolder
Set fso = CreateObject("Scripting.FileSystemObject")

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

' 检查当前目录是否包含子目录
Dim hasSubFolders
hasSubFolders = folder.SubFolders.Count > 0

' 如果当前目录包含子目录，则提示用户是否也要处理子目录中的文件
Dim modifySubFolders
If hasSubFolders Then
modifySubFolders = MsgBox("当前目录包含子目录。是否也要修改子目录中的文件后缀名？", vbYesNo + vbQuestion, "修改子目录中的文件")
End If

' 处理当前目录中的所有文件
Call ProcessFiles(folder, newExtension)

' 如果用户选择是，并且当前目录包含子目录，则遍历所有子目录并处理其中的文件
If hasSubFolders And modifySubFolders = vbYes Then
For Each subFolder In folder.SubFolders
      Call ProcessFiles(subFolder, newExtension)
Next
End If

' 提示用户操作完成
MsgBox "所有文件的后缀名已成功更改为 '" & newExtension & "'。", vbInformation, "完成"

' 处理指定目录中的文件的子程序
Sub ProcessFiles(targetFolder, newExtension)
Dim file, oldName, baseName, currentExtension, newName, newFileName, counter
Dim nameDict

' 创建一个字典对象，用于存储当前目录内的文件名
Set nameDict = CreateObject("Scripting.Dictionary")

' 遍历指定目录下的所有文件
For Each file In targetFolder.Files
      ' 跳过后缀名为 .vbs 的文件
      If LCase(fso.GetExtensionName(file)) <> "vbs" Then
         ' 获取文件的旧名称、基础名称和当前后缀名
         oldName = file.Name
         baseName = fso.GetBaseName(file)
         currentExtension = LCase(fso.GetExtensionName(file))

         ' 如果当前后缀名与新后缀名不同，则进行重命名
         If currentExtension <> LCase(newExtension) Then
            ' 创建新的文件名
            newName = baseName & "." & newExtension

            ' 检查是否已有同名文件，如果有，则处理重名
            newFileName = newName
            counter = 1
            ' 确保新的文件名唯一
            While nameDict.Exists(newFileName) Or fso.FileExists(targetFolder.Path & "\" & newFileName)
                  newFileName = baseName & "(" & counter & ")." & newExtension
                  counter = counter + 1
            Wend

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

            ' 重命名文件
            file.Name = newFileName
         End If
      End If
Next
End Sub

dzd172 · 发表于 2024-9-5 23:00:55

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

xnick666123 · 发表于 2024-9-6 12:41:25

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

破解软件/游戏（正经）

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

合作

站务管理

获得帮助

关于老王

更多发现

破解软件/游戏（正经）

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

重要提示

合作

站务管理

获得帮助

关于老王

更多发现