README.md

Description

Make any level directories, such as:

MakeDir "c:\abc\1234\aaaa\1111\6666\ggggggggg\dddddddddd\ssssssss\7676\dsdsds"

More Info

Submitted On
By	enmity
Level	Advanced
User Rating	3.8 (19 globes from 5 users)
Compatibility	VB 6.0
Category	VB function enhancement
World	Visual Basic
Archive File

Source Code

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 = o_strRet & "\" & o_vntItem
        MkDir o_strRet
      End If
    Next
    MakeDir = (Err.Number = 0)
End Function