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 necessarySub 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