Creating Folders using recursion

Assume that you're trying to create the following folder:
C:\Folder1\Folder2\Folder3\Folder4
You could easily create it if the folder C:\Folder1\Folder2\Folder3 existed by simply calling the MkDir method:
MkDir "C:\folder1\folder2\folder3\folder4"

However, VB flags a run-time error if the C:\folder1\folder2\folder3 does not exists. The following function makes creating subfolders more easier by checking all the parent folders and creating any of them if they did not exist using recursion.

To use this function, simply pass the FULL PATH of the folder you wish to create. Make sure that destDir always end with "\" (without quotes). The function returns TRUE if operation was successful. Otherwise, it returns FALSE.


Public Function CreateFolder(destDir As String) As Boolean
   
   Dim i As Long
   Dim prevDir As String
   
   On Error Resume Next
   
   For i = Len(destDir) To 1 Step -1
       If Mid(destDir, i, 1) = "\" Then
           prevDir = Left(destDir, i - 1)
           Exit For
       End If
   Next i
   
   If prevDir = "" Then CreateFolder = False: Exit Function
   If Not Len(Dir(prevDir & "\", vbDirectory)) > 0 Then
       If Not CreateFolder(prevDir) Then CreateFolder = False: Exit Function
   End If
   
   On Error GoTo errDirMake
   MkDir destDir
   CreateFolder = True
   Exit Function
   
errDirMake:
   CreateFolder = False

End Function

Example:
If CreateFolder("C:\Folder1\Folder2\Folder3\") Then
  MsgBox "Folder Creation successful!"
Else
  MsgBox "Folder Creation failed!"
End If

You might also like...

Comments

 Lio

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“Better train people and risk they leave – than do nothing and risk they stay.” - Anonymous