繁体   English   中英

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

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

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

谢谢!

使用像 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

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM