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

Question

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

谢谢！

Answer 1

Const rootFolder = "c:\RootFolder"

Const targetFolder =“ c：\ TargetFolder”

设置fso = CreateObject（“ Scripting.FileSystemObject”）

对于fso中的每个objFolder（rootFolder）.SubFolders对于objFolder.Files中的每个sFileoFSO.GetFile（sFile）.copy targetFolder＆“ \”＆fso.GetFileName（sFile），True下一个下一个