收集的一些经典的vbs脚本大全

收集经典的VBS脚本主要是为了方便程序员进行日常工作，提高编程效率，下面是具体的攻略：

收集VBS脚本的来源

首先，我们需要寻找来源，可以通过以下方式：

1. 在GitHub或其他代码托管平台上搜索

在GitHub等代码托管平台中搜索关键字"VBS"，可以找到许多开源的VBS脚本库，可以自由下载使用或进行修改。

2. 查询VBS脚本相关的论坛和博客

在国外的技术社区和博客，比如Stack Overflow等网站，可以找到一些高质量的VBS脚本。

3. 搜集自己写过的VBS脚本

复制粘贴自己以往写过的VBS脚本，并整理成文档，同时进行分类整理。

分类整理和整合脚本

接下来，我们需要对脚本进行分类整理，可以根据功能、用途等方面进行划分，并给每个脚本加上详细的注释或说明。

对于一些常用的脚本，可以整合成一份大全，并保证文档结构清晰，方便读者快速查找。

示例说明

以下是两个示例说明。假设我们需要整理和整合一些递归查找指定路径下某种文件类型的脚本。

示例一：vbfind.vbs

Option Explicit

Dim root : root = "C:\Windows"
Dim ext : ext = "dll"

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder : Set objFolder = objFSO.GetFolder(root)

Recursion objFolder

Sub Recursion(objCurFolder)
    Dim objFile, objSubfolder

    For Each objFile In objCurFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Path)) = LCase(ext) Then
            WScript.Echo objFile.Path
        End If
    Next

    For Each objSubfolder In objCurFolder.SubFolders
        Recursion objSubfolder
    Next
End Sub

示例二：vbfinddir.vbs

Option Explicit

Dim root : root = "C:\Windows"
Dim ext : ext = "dll"

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

Recursion root

Sub Recursion(strCurFolder)
    Dim objFolder, objSubfolder, objFile

    Set objFolder = objFSO.GetFolder(strCurFolder)
    For Each objFile In objFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Path)) = LCase(ext) Then
            WScript.Echo objFile.Path
        End If
    Next
    For Each objSubfolder In objFolder.SubFolders
        Recursion objSubfolder.Path
    Next
End Sub

这两个示例分别采用不同的递归方式来查找指定目录下的文件类型为.dll的文件并输出结果。可以根据实际需要选用不同的方式使用。