Dir Maker

Make any level directories, such as:
MakeDir "c:abc1234aaaa11116666gggggggggddddddddddssssssss7676dsdsds"

Original Author: Unruled Boy

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 100 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.