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

Question

我有一个包含大约 100-200 个子文件夹的文件夹。所有这些都有 20-30 个 Jpeg。我只想将所有子文件夹中的第一个 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