Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: beginner
Nov 18, 2000

MakePath - Create a nested directory

' create a nested directory
'
' it's similar to MkDir, but it also creates
' all intermediary sub-directories

Sub 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
            ' Path\File 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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date