Vba 创建重复文件夹和文件夹结构

在我以前的公司里，我们有一个人创建了一个程序，允许你根据特定的文件夹创建任意数量的重复文件夹。这个程序的美妙之处在于，你可以指定要创建多少份拷贝，甚至可以指定文件夹的名称（在这种情况下，这是一个过于简单的顺序编号系统）。据我回忆，这是excel中的一个宏命令。我无法联系做这件事的人，也记不起所用的代码。

我相信你需要使用FileSystemObject来完成这件事，我不确定你想如何用新文件夹的名称和编号等来设置你的工作表

但是一旦你决定了你想做的事情，你就会做类似的事情

Dim FSO as scripting.filesystemobject
dim FL as scripting.file
dim FLD as scripting.folder

set FSO = new scripting.filesystemobject
set FLD = fso.GetFolder("FOLDER TO COPY")

FSO.createfolder "NewFolder"

for each FL in FLd.Files
    FL.copy "NewFolder"
next FL