Excel VBA 建立目錄 MkDir 函數教學與範例

介紹如何使用 Excel VBA 的 MkDir 函數建立目錄。

建立目錄

如果要在 Excel 中以 VBA 巨集程式建立目錄，可以使用 MkDir 函數，其用法很簡單，呼叫 MkDir 函數之後，指定目錄的路徑即可。

MkDir "C:\OfficeGuide\TmpFolder"

在呼叫 MkDir 函數建立目錄時，如果指定的目錄已經存在，就會產生「路徑或檔案存取錯誤」的錯誤訊息。

所以通常在建立目錄時，都會搭配 Dir 函數來檢查目錄是否已經存在：

' 確認目錄不存在
If Len(Dir("C:\OfficeGuide\TmpFolder", vbDirectory)) =  Then
  MkDir "C:\OfficeGuide\TmpFolder"
End If

建立多層目錄

如果需要一次建立多層新的目錄，除了使用迴圈逐層建立之外，可以考慮使用 Shell 呼叫外部的 mkdir 自動建立目錄：

Dim folder As String

' 多層目錄
folder = "C:\OfficeGuide\TmpFolder\A\B\C"

' 自動建立多層目錄
Shell ("cmd /c mkdir """ & folder & """")

在使用 Shell 建立目錄時，由於 Shell 會立即返回，並不會等待其指令執行完，如果緊接著對剛建立的目錄進行存取，就會產生目錄不存在的錯誤。

參考資料

• AnalystCave