Binaryworld - MakeDirPath - Create a path, including intermediate directories ... [ VB -> Files & Folder ]

' 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