• Home
 · 
• Files/File Controls/Input/Output
 · 
• User can create as many folders and subfolders as he/she wants.

User can create as many folders and subfolders as he/she wants.

User can create as many folders and subfolders as he/she wants.

API Declarations


Dim pos As Integer
Dim sDirectory As String
Dim sSlash As Integer




Rate User can create as many folders and subfolders as he/she wants.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    txtPath.text = LCase(txtPath.text)
    txtPath.text = Replace(txtPath.text, "/", "\")
    If Right$(txtPath.text, 1) <> "\" Then
        txtPath.text = txtPath.text & "\"
    End If
    pos = 0
    sSlash = 4    
    Do Until pos > iSize
        pos = InStr(sSlash, txtPath.text, "\")
        If pos = 0 Then
            Exit Do
        Else
            sDirectory = Left$(txtPath.text, pos)
            If Dir$(sDirectory, vbDirectory) <> "." Then              
                MkDir sDirectory
            End If
        End If
        sSlash = pos + 1
    Loop