Скопируйте первый файл из каждой папки в новое место в windows

Question

У меня есть папка с около 100-200 подпапок. Все они имеют 20-30 JPEG каждый. Я sh, чтобы скопировать только первый файл JPEG из всех подпапок в новую папку. Есть ли способ автоматизировать это?

Спасибо!

Answer 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