有没有创建目录的算法？

Question

假设我有一个路径：
c:\a\b\c\
加入a目录b目录和c目录都没有的！
怎样判断和创建它。
假如没有目录A则创建，在A里面没有B则创建

Answer 1

Private Sub Command1_Click()
createdir "c:\a\b\c\"
End Sub
Sub createdir(ByVal mydir As String)
On Error Resume Next
Dim temp() As String, dirs() As String, i As Integer
temp = Split(mydir, "\")
ReDim dirs(1 To UBound(temp))
For i = UBound(temp) To 1 Step -1
ReDim Preserve temp(i)
dirs(i) = Join(temp, "\")
Next
For i = 1 To UBound(dirs)
If Not Dir(dirs(i)) > " " Then MkDir dirs(i)
Next
MsgBox "ok"
End Sub