by Bibikoff Leonid (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (5 Votes)
this code creates folder with any number of subfolders beneath it. MkDir can't do this!
sorry 4 my english :)
Inputs
Path as string
Assumes
paste this code in new module
in immediate window type for example
CreateDir "c:\rrr\ggg\jjj\kkk"
Sub CreateDir(strPath As String)
On Error Resume Next
Dim ArrFolders As Variant
ArrFolders = Split(strPath, "\")
dim i as long
Dim CurPath As String: CurPath = ArrFolders(0)
MkDir CurPath
For i = 1 To UBound(ArrFolders)
CurPath = CurPath & "\" & ArrFolders(i)
MkDir CurPath
Next i
On Error GoTo 0
If Len(Dir(strPath, vbDirectory)) = 0 Then
Err.Raise vbObjectError, , "Can't create dir" & vbCrLf & strPath & vbcrlf & ":(((("
End If
End Sub