使用VBS脚本一键整理视频文件

精选原创

陈锋爱吃菠萝 2024-07-07 12:42:47 ©著作权

文章标签 ide 扩展名目标文件 文章分类 Java 后端开发 yyds干货盘点

©著作权归作者所有：来自51CTO博客作者陈锋爱吃菠萝的原创作品，请联系作者获取转载授权，否则将追究法律责任

在日常生活和工作中，我们经常会在文件夹中存放大量的视频文件。为了更好地管理和整理这些视频文件，本文将介绍如何使用VBS（Visual Basic Script）脚本一键整理视频文件。该脚本将从脚本所在的同级目录开始，遍历所有子文件夹，并将其中的视频文件移动到一个新创建的文件夹中。

VBS脚本简介

VBS脚本是一种轻量级的脚本语言，常用于Windows平台上的自动化任务。通过VBS脚本，可以方便地实现文件操作、系统管理等任务。

编写VBS脚本

下面是一个示例VBS脚本，能够一键整理视频文件。该脚本会从脚本所在的目录开始，遍历所有子文件夹，并将其中的视频文件（如MP4、AVI、MKV等）移动到一个新创建的文件夹中。

脚本代码

' 定义视频文件扩展名
videoExtensions = Array("mp4", "avi", "mkv", "mov", "wmv", "flv")

' 获取当前脚本所在的目录
Set fso = CreateObject("Scripting.FileSystemObject")
currentFolder = fso.GetParentFolderName(WScript.ScriptFullName)

' 创建存放视频文件的目标文件夹
targetFolderName = currentFolder & "\OrganizedVideos"
If Not fso.FolderExists(targetFolderName) Then
    fso.CreateFolder(targetFolderName)
End If

' 遍历文件夹并移动视频文件
Sub MoveVideos(folder)
    Dim file, subfolder, extension
    
    ' 遍历当前文件夹中的文件
    For Each file In folder.Files
        extension = LCase(fso.GetExtensionName(file.Name))
        If IsVideoFile(extension) Then
            file.Move targetFolderName & "\" & file.Name
        End If
    Next
    
    ' 递归遍历子文件夹
    For Each subfolder In folder.SubFolders
        MoveVideos subfolder
    Next
End Sub

' 判断文件是否为视频文件
Function IsVideoFile(extension)
    Dim i
    IsVideoFile = False
    For i = 0 To UBound(videoExtensions)
        If extension = videoExtensions(i) Then
            IsVideoFile = True
            Exit For
        End If
    Next
End Function

' 执行脚本
Set rootFolder = fso.GetFolder(currentFolder)
MoveVideos rootFolder

MsgBox "视频文件整理完成！", vbInformation

脚本说明

定义视频文件扩展名：通过数组videoExtensions定义常见的视频文件扩展名。
获取当前脚本所在的目录：使用GetParentFolderName方法获取当前脚本所在的目录。
创建目标文件夹：在当前目录下创建一个名为OrganizedVideos的新文件夹，用于存放整理后的视频文件。
遍历文件夹并移动视频文件：定义MoveVideos子过程，递归遍历当前文件夹及其子文件夹中的所有文件。如果文件是视频文件，则将其移动到目标文件夹中。
判断文件是否为视频文件：定义IsVideoFile函数，根据文件扩展名判断文件是否为视频文件。
执行脚本：获取根目录并调用MoveVideos子过程，最后弹出消息框提示整理完成。