vbs代码制作一个在E图片 查找 aaatxt 列表的文件夹模糊匹配的 jpg图片将找到的文件复制到桌面找到的文件夹

以下是一个实现上述要求的VBS代码示例：

Set objFSO = CreateObject("Scripting.FileSystemObject")

' 定义源文件夹路径和目标文件夹路径
sourceFolder = "E:\图片"
targetFolder = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\找到的文件夹"

' 创建目标文件夹
If Not objFSO.FolderExists(targetFolder) Then
    objFSO.CreateFolder(targetFolder)
End If

' 搜索文件夹模糊匹配的 jpg 图片
SearchFiles objFSO.GetFolder(sourceFolder)

Sub SearchFiles(folder)
    For Each file In folder.Files
        ' 判断文件名是否包含 "aaa.txt"，并且扩展名是 ".jpg"
        If InStr(1, file.Name, "aaa.txt", vbTextCompare) > 0 And LCase(objFSO.GetExtensionName(file.Name)) = "jpg" Then
            ' 复制文件到目标文件夹
            objFSO.CopyFile file.Path, targetFolder & "\" & file.Name
        End If
    Next

    ' 递归搜索子文件夹
    For Each subfolder In folder.SubFolders
        SearchFiles subfolder
    Next
End Sub

使用方法：

1. 将以上代码保存为一个文本文件，例如"search_files.vbs"。
2. 双击运行该文件，在桌面上会创建一个名为"找到的文件夹"的文件夹。
3. 代码将会在"E:\图片"及其子文件夹中搜索文件名包含"aaa.txt"且扩展名为".jpg"的文件，并将找到的文件复制到"找到的文件夹"文件夹中