Vbscript 从文件列表中获取文件名，如果文件大小大于1MB，请复制

我的一位工作经理为我安排了以下任务：

我们有一个所有服装款式和颜色的图像数据库。对于每种类型的衣服和每种颜色，我们有3张图片。其中2幅为低分辨率图像，1幅为高分辨率图像

我们需要将每个样式和颜色的高分辨率图像从由子文件夹组成的旧数据库复制到一个文件夹中，因此忽略文件夹结构

我曾经遇到过这个VisualBasic脚本，它非常接近我需要的东西，但是需要一些调整，因为我对VB脚本没有真正的经验，我希望我能在这里得到一些帮助

我需要调整的脚本是： -从列表中读取图像名称的脚本（filelist.txt）（如果可能，无需向列表中添加每个图像的路径，只需名称和扩展名，即.jpg） -如果大小大于1MB，脚本只需要抓取图像。 -用于复制子文件夹中的图像而不保留文件夹结构的脚本

任何和所有的帮助都将不胜感激，调整背后的解释和任何指导也将是善意的，但不是必需的

这是我到目前为止的脚本。这些路径是临时的，因为我在玩脚本

Option Explicit

' The source path for the copy operation.
Const strSourceFolder = "C:\Users\Cou Rou\Desktop\Old database"

' The target path for the copy operation.
Const strTargetFolder = "C:\Users\Cou Rou\Desktop\New database"

' The list of files to copy. Should be a text file with one file on each row. No paths - just file name.
Const strFileList = "C:\Users\Cou Rou\Desktop\Old database\filelist.txt"

' Should files be overwriten if they already exist? TRUE or FALSE.
Const blnOverwrite = FALSE

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

Const ForReading = 1
Dim objFileList
Set objFileList = objFSO.OpenTextFile(strFileList, ForReading, False)

Dim strFileToCopy, strSourceFilePath, strTargetFilePath
On Error Resume Next
Do Until objFileList.AtEndOfStream
    ' Read next line from file list and build filepaths
    strFileToCopy = objFileList.Readline
    strSourceFilePath = objFSO.BuildPath(strSourceFolder, strFileToCopy)
    strTargetFilePath = objFSO.BuildPath(strTargetFolder, strFileToCopy)

    ' Copy file to specified target folder.
    Err.Clear
    objFSO.CopyFile strSourceFilePath, strTargetFilePath, blnOverwrite
    If Err.Number = 0 Then
        ' File copied successfully
    Else
        ' Error copying file
        Wscript.Echo "Error " & Err.Number & " (" & Err.Description & "). Copying " & strFileToCopy
    End If
Loop

---

这不是VB.NET代码。你可以从这里开始，试着自己做，如果你有问题，在这里发布你的新代码：你不喜欢你的评论/答案中关于同一主题的什么？1）那是关于批处理脚本的2）在得到一些答案后，我开始调整我已经有的代码，但没有结果。3） 我在答案中收到的完整代码没有任何作用。4） 我转到VisualBasic，因为代码似乎更容易阅读和理解。