MakeDirPath - Create a path, including intermediate directories

' Create a nested directory
'
' This is similar to the MkDir command, but it creates any
' intermediate directory if necessary

Sub MakeDirPath(dirname As String)
    Dim i As Long, path As String
    
    Do
        i = InStr(i + 1, dirname & "\", "\")
        path = Left$(dirname, i - 1)
        ' don't try to create a root directory
        If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
            ' make this subdirectory if it doesn't exist
            ' (exits if any error)
            MkDir path
        End If
    Loop Until i >= Len(dirname)

End Sub