こんな技があるとは知らなかった!
Windows APIを使用して、サブディレクトリも一括でディレクトリを作成します。
Option Explicit Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" ( _ ByVal hwnd As Long, _ ByVal pszPath As String, _ ByVal psa As Long) As Long '-------------------------------------------------------------------------------- '【処理名】ディレクトリ作成 '【引数】path ディレクトリパス '【返却値】 成功:0 失敗:0以外 '-------------------------------------------------------------------------------- Function makeDirectory(ByVal path As String) As Long 'ツール > 参照設定 > Microsoft Scripting Runtime Dim oFSO As New FileSystemObject makeDirectory = 0 If oFSO.FolderExists(path) <> True Then makeDirectory = SHCreateDirectoryEx(0&, path, 0&) End If Set oFSO = Nothing End Function
指定のディレクトリがなければ作成します。
参考:moug様 「保存先フォルダを作成してブックを保存する(複数階層のフォルダ)」