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

下面是使用VBScript代码实现上述功能的示例：

Option Explicit

Dim objFSO, objShell, objFolder, objFile, objDestFolder
Dim strSearchFile, strDestFolder, strDesktopPath

' 设置要查找的文件名
strSearchFile = "aaa.txt"

' 设置目标文件夹路径
strDestFolder = "桌面\找到的文件夹"

' 获取桌面路径
Set objShell = CreateObject("WScript.Shell")
strDesktopPath = objShell.SpecialFolders("Desktop")

' 创建目标文件夹
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder strDesktopPath & "\" & strDestFolder

' 获取图片文件夹路径
Set objFolder = objFSO.GetFolder("E:\图片")

' 遍历文件夹中的文件
For Each objFile In objFolder.Files
    ' 判断文件名是否匹配
    If objFSO.GetExtensionName(objFile.Path) = "jpg" Then
        ' 复制文件到目标文件夹
        objFSO.CopyFile objFile.Path, strDesktopPath & "\" & strDestFolder, True
    End If
Next

' 显示完成信息
MsgBox "查找并复制完成！", vbInformation

将上述代码保存为.vbs文件后，双击运行即可执行。执行完成后，会在桌面上创建一个名为"找到的文件夹"的文件夹，并将在"E:\图片"中找到的所有.jpg文件复制到该文件夹中