Question

在我以前的公司中，我们有一个人创建了一个程序，允许您根据特定文件夹创建任意数量的重复文件夹。程序的美妙之处在于，您可以指定要创建的副本数量，甚至可以指定文件夹的名称（在这种情况下，这是一个简单的顺序编号系统）。据我所知，这是excel中的一个宏命令。我不能联系那个做过它的人，也不记得使用过的代码。

Answer 1

您需要使用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

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

1 个答案: