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,VBS
Expertise: Intermediate
Mar 10, 2001

MakeDirPath - Create a path, including intermediate directories

' Create a nested directory
'
' This is similar to the MkDir command, but it creates any
' intermediate directory if necessary

Sub MakeDirPath(dirname As String)
    Dim i As Long, path As String
    
    Do
        i = InStr(i + 1, dirname & "\", "\")
        path = Left$(dirname, i - 1)
        ' don't try to create a root directory
        If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then
            ' make this subdirectory if it doesn't exist
            ' (exits if any error)
            MkDir path
        End If
    Loop Until i >= Len(dirname)

End Sub

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap