[VB]多级目录创建函数，支持很深的目录创建。

一个多级目录创建函数，支持很深的目录。
如：MakeDir "c:\abc\1234\aaaa\1111\6666\ggggggggg\dddddddddd\ssssssss\7676\dsdsds"

Public Function MakeDir(Path As String) As Boolean
    On Error Resume Next
    Dim o_strRet As String
    Dim o_intItems As Integer
    Dim o_vntItem As Variant
    Dim o_strItems() As String
    o_strItems() = Split(Path, "\")
    o_intItems = 0

    For Each o_vntItem In o_strItems()
        o_intItems = o_intItems + 1

        If o_intItems = 1 Then
            o_strRet = o_vntItem
        Else
            o_strRet