MakePath – Create a nested directory

MakePath – Create a nested directory

' create a nested directory'' it's similar to MkDir, but it also creates' all intermediary sub-directoriesSub MakePath(ByVal path As String)    Dim i As Integer, ercode As Long        On Error Resume Next    Do        ' get the next path chunk        i = InStr(i + 1, path & "", "")                ' try to create this sub-directory        Err.Clear        MkDir Left$(path, i - 1)        If Err = 0 Then            ' the directory has been created            ' do nothing        ElseIf Err = 75 Then            ' PathFile Access Error: the directory exists            ' do nothing        Else            ' we can't continue if any other error            ercode = Err            On Error GoTo 0            Err.Raise ercode        End If    Loop Until i > Len(path)            End Sub

See also  5 Strategies for Supercharging Your CRM

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist