• Home
 · 
• VB function enhancement
 · 
• Dir Maker

Dir Maker

Make any level directories, such as:
MakeDir "c:\abc\1234\aaaa\1111\6666\ggggggggg\dddddddddd\ssssssss\7676\dsdsds"

Rate Dir Maker

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

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