将每个文件夹中的第一个文件复制到 Windows 中的新位置答案

【问题标题】：Copy the first file from every folder to a new location in windows将每个文件夹中的第一个文件复制到 Windows 中的新位置
【发布时间】：2020-06-29 05:44:10
【问题描述】：

我有一个包含大约 100-200 个子文件夹的文件夹。所有这些都有 20-30 Jpegs 每个。我希望只将所有子文件夹中的第一个 Jpeg 文件复制到新文件夹中。有没有办法实现自动化？

谢谢！

【问题讨论】：

标签： windows directory automation copy subdirectory

【解决方案1】：

使用像 vbScript 这样的脚本：

Const rootFolder = "c:\Rootfolder"
Const targetFolder = "c:\TargetFolder"

Set fso = CreateObject("Scripting.FileSystemObject")

For Each objFolder In fso.GetFolder(rootFolder).SubFolders
	i = 0
	For Each sFile In objFolder.Files
		If i = 0 then
			fso.GetFile(sFile).Copy targetFolder & "\" & fso.GetFileName(sFile),True
			i = 1
		End if
	Next
Next

【讨论】：

嗨 Sagi，感谢您的回复，再次感谢您的帮助！您也可以帮助我了解如何正确使用它吗？我还是脚本新手。
我尝试将其粘贴到记事本上，另存为 .wsj 并运行脚本。作为测试，我在“C”中创建了新文件夹以匹配您的脚本，但它显示了一些错误。行：10 字符：4 错误：未终止的实体引用 - 匹配“；”没找到你能帮我解决这个问题吗？
我更新了代码。将其保存为文本文件，并以 .vbs 结尾的 vbScript 文件。
嘿萨吉！感谢更新。该代码有效，并且为我的工作流程创造了奇迹。再次感谢！