Copy the first file from every folder to a new location in windows

Question

I have a folder with about 100-200 subfolders. All these have 20-30 Jpegs each. I wish to copy only the first Jpeg file from all the subfolders to a New Folder. Is there a way to automate this?

Thanks!

Answer 1

Use a script like 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