|
今天說說如何利用fso.createfolder來批量創(chuàng)建文件夾。
代碼示例： Sub FSO創(chuàng)建多級(jí)文件夾()Set fso = CreateObject('Scripting.FileSystemobject') arr = [a1].CurrentRegion '獲取a1的連續(xù)區(qū)域 存入數(shù)組arr For j = 1 To UBound(arr) '循環(huán)每一行 Path = ThisWorkbook.Path & '\' '在此工作薄路徑下 If Len(arr(j, 1)) > 0 Then '工作薄路徑下加上j行第一列的單元格值 形成新路徑 Path = Path & arr(j, 1) If Not fso.FolderExists(Path) Then fso.CreateFolder (Path) '若新路徑不存在 則按其創(chuàng)建文件夾 End If Path = Path & '\' For i = 2 To UBound(arr, 2) '循環(huán)j行的i列 If Len(arr(j, i)) > 0 Then '在上一級(jí)路徑的基礎(chǔ)上繼續(xù)增加單元格值 形成新路徑 Path = Path & arr(j, i) If Not fso.FolderExists(Path) Then '若新路徑文件夾不存在，按新路徑創(chuàng)建文件夾 此為i級(jí)文件夾 fso.CreateFolder (Path) End If Path = Path & '\' Else Exit For End If Next i End If Next jEnd Sub |
|
|
