Create Dir (Folder)
this code creates folder with any number of subfolders beneath it. MkDir can't do this!
sorry 4 my english :)
Original Author: Bibikoff Leonid
Inputs
Path as string
Assumptions
paste this code in new module
in immediate window type for example
CreateDir "c:
rrgggjjjkkk"
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.