┌──────────────────────────────────────┐
│'===========================================================================│
│'  フォルダ作成                                                             │
│'===========================================================================│
│Private Sub フォルダ作成(ByVal パス As String)                              │
│    Dim objFSO As Object                                                    │
│    Set objFSO = CreateObject("Scripting.FileSystemObject")                 │
│    '-----------------------------------------------------------------------│
│    '  既に存在するか？                                                     │
│    '-----------------------------------------------------------------------│
│''''If Dir(パス, vbDirectory) <> "" Then                                    │
│    If objFSO.FolderExists(パス) Then                                       │
│        MsgBox "そのフォルダは既に存在します"                               │
│        Exit Sub                                                            │
│    End If                                                                  │
│    '-----------------------------------------------------------------------│
│    '  親フォルダは存在するか？                                             │
│    '-----------------------------------------------------------------------│
│    Dim objREG As Object                                                    │
│    Set objREG = CreateObject("VBScript.RegExp")                            │
│    Dim 親パス As String                                                    │
│    objREG.Pattern = "\\[^\\]*$"                                            │
│    親パス = objREG.Replace(パス, "")                                       │
│''''If Dir(親パス, vbDirectory) = "" Then                                   │
│    If Not objFSO.FolderExists(親パス) Then                                 │
│        MsgBox "パスが不正です(親フォルダが見当たりません)" & vbCrLf _      │
│             & 親パス                                                       │
│        Exit Sub                                                            │
│    End If                                                                  │
│    '-----------------------------------------------------------------------│
│    '  フォルダ作成                                                         │
│    '-----------------------------------------------------------------------│
│''''MkDir パス                                                              │
│    Call objFSO.CreateFolder(パス)                                          │
│    MsgBox "終了"                                                           │
│End Sub                                                                     │
│'===========================================================================│
└──────────────────────────────────────┘