創建重複的文件夾和文件夾結構

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