MkDir, maybe an old one

[Jodo1955]

Hi,

I need to create a multilevel path like

"C:\Level1\Level2\Level3"

Public sub CreatePath()

MkDir "C:\level1\level2\level3"

End Sub

leads to an error 76 "path not found".

Public Sub createdir()

MkDir "C:\level11"
MkDir "C:\level11\level12"
MkDir "C:\level11\level12\level13"

End Sub

works fine but isn't very practical when the path has a greater changing numbers of levels.

Who knows how I can solve this problem on a simple way, suitable for a greater changing number of levels ??

jodo1955

[Siddharth Rout]

Try this...

I have not included error handling which I am sure you can take care of...

Private Sub Command1_Click()
    Dim StrFullPath As String, Myarray() As String
    
    '~~> Change this to the relevant path
    StrFullPath = "C:\Level1\Level2\Level3"
 
    Myarray = Split(StrFullPath, "\")
 
    MyNewPath = Myarray(0)
 
    For i = 1 To UBound(Myarray)
        '~~> Create Paths
        MkDir MyNewPath & "\" & Myarray(i)
        MyNewPath = MyNewPath & "\" & Myarray(i)
    Next i
End Sub

[anhn]

Use this API call:

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
    ByVal lpPath As String) As Long

Make sure lpPath ends with "\"

[Hack]

Make sure lpPath ends with "\"

This is important...if you don't have the trailing "\" you will not receive an error or any other indication that it didn't work. However, without that "\" the folders will not be created.

[VBClassicRocks]

Example from APIGuide:

Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'create the directory 'c:\test\dir\hello\something\apiguide\'
    SHCreateDirectoryEx Me.hwnd, "c:\test\dir\hello\something\apiguide\", ByVal 0&
End Sub

[anhn]

Make sure lpPath ends with "\"

This is important...if you don't have the trailing "\" you will not receive an error or any other indication that it didn't work. However, without that "\" the folders will not be created.

That's good to be mentioned.
I make a sub like this:

Sub MakeDeepDir(ByVal sPath As String)
   MakeSureDirectoryPathExists sPath & "\"
End Sub

You can pass in sPath with or without trailing "\" because it is accepted if the path ends with "\\".
Unlike the classic MkDir, if the directory already existed, MakeSureDirectoryPathExists() will do nothing and not generate an error.