vbs代码制作 按照桌面aaatxt 列表内的名字匹配相关的文件夹和文件名 把找到的jpg图片文件复制到桌面找到的文件夹

下面是一个使用VBS脚本实现上述功能的示例代码：

Dim objFSO, objFolder, objFile, objShell
Dim sourcePath, targetPath, fileList, line, fileName, folderName

' 设置源文件路径和目标文件夹路径
sourcePath = "C:\Users\用户名\Desktop\aaa.txt"
targetPath = "C:\Users\用户名\Desktop\找到的文件夹"

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

' 读取源文件中的文件名列表
Set fileList = objFSO.OpenTextFile(sourcePath, 1)
Do While Not fileList.AtEndOfStream
    line = fileList.ReadLine
    
    ' 遍历每个文件名，在目标文件夹中查找匹配的文件和文件夹
    Set objFolder = objFSO.GetFolder(targetPath)
    For Each objFile In objFolder.Files
        If InStr(1, objFile.Name, line, vbTextCompare) > 0 And LCase(objFSO.GetExtensionName(objFile.Path)) = "jpg" Then
            ' 复制匹配的jpg文件到目标文件夹中
            fileName = objFSO.GetBaseName(objFile.Name) & "." & objFSO.GetExtensionName(objFile.Path)
            folderName = objFSO.GetBaseName(objFile.ParentFolder.Name)
            objFSO.CopyFile objFile.Path, targetPath & "\" & folderName & "\" & fileName
        End If
    Next
    
    Set objFolder = Nothing
Next

' 清理资源
fileList.Close
Set fileList = Nothing
Set objFSO = Nothing
Set objShell = Nothing

MsgBox "复制完成！"

请注意，你需要根据实际情况修改以下代码行：

• sourcePath：源文件路径，即包含文件名列表的文本文件路径。
• targetPath：目标文件夹路径，即要将匹配的jpg文件复制到的文件夹路径。

在运行脚本之前，确保已经创建了目标文件夹，并且源文件中的文件名列表与实际文件名相匹配。脚本运行后，找到的匹配的jpg文件将会被复制到目标文件夹中的相应文件夹中