Create multiple subdirectories

[RhinoBull]

You can do that via one API call:

Option Explicit
 
Private Declare Function MakeSureDirectoryPathExists _
    Lib "imagehlp.dll" (ByVal lpPath As String) As Long
 
Private Sub Command1_Click()
    'NOTE: make sure complete path ends with backslash
    MakeSureDirectoryPathExists "c:\dir1\subdir1\subdir2\"
End Sub