• Home
 · 
• Files/File Controls/Input/Output
 · 
• Create Dir (Folder)

Create Dir (Folder)

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"

Rate Create Dir (Folder)

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

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