vbs代码制作 在E图片中查找 桌面aaatxt 文件列表模糊匹配相关的文件夹把找到的jpg图片文件复制到桌面找到的文件夹

以下是使用VBScript代码实现在指定文件夹中查找相关文件夹，并将匹配的jpg图片文件复制到指定文件夹的示例代码：

Dim objFSO, objShell
Dim strDesktop, strSourceFolder, strDestinationFolder, strSearchString

' 设置相关文件夹路径和搜索字符串
strDesktop = "C:\Users\YourUser\Desktop"  ' 桌面路径
strSourceFolder = "E:\图片"  ' 源文件夹路径
strDestinationFolder = strDesktop & "\找到的文件夹"  ' 目标文件夹路径
strSearchString = "aaa.txt"  ' 搜索字符串

' 创建文件系统对象和Shell对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

' 检查目标文件夹是否存在，如果不存在则创建
If Not objFSO.FolderExists(strDestinationFolder) Then
    objFSO.CreateFolder strDestinationFolder
End If

' 搜索相关文件夹
FindFolders objFSO.GetFolder(strSourceFolder), strSearchString

' 搜索相关文件夹的函数
Sub FindFolders(objFolder, strSearch)
    Dim objSubFolder, objFile, objDestFolder
    Dim strFolderName, strFileName

    ' 遍历文件夹中的子文件夹
    For Each objSubFolder In objFolder.SubFolders
        strFolderName = objSubFolder.Name
        
        ' 检查文件夹名是否包含搜索字符串
        If InStr(strFolderName, strSearch) > 0 Then
            ' 遍历文件夹中的文件
            For Each objFile In objSubFolder.Files
                strFileName = objFile.Name
                
                ' 检查文件扩展名是否为jpg
                If LCase(objFSO.GetExtensionName(strFileName)) = "jpg" Then
                    ' 复制文件到目标文件夹
                    objFSO.CopyFile objFile.Path, strDestinationFolder & "\" & strFileName, True
                End If
            Next
        End If
        
        ' 递归搜索子文件夹
        FindFolders objSubFolder, strSearch
    Next
End Sub

请根据实际情况，将代码中的路径修改为您自己的路径，并保存为.vbs文件运行。代码将在指定文件夹中查找相关文件夹，将匹配的jpg图片文件复制到指定的目标文件夹中