Vba Code to Create Folder and Subfolders

In this Excel VBA tutorial lesson, you learn how to create folders and subfolders using Excel VBA.

Using the CreateFolder function

The CreateFolder function is a built-in function that can be used to create a folder. The syntax for the CreateFolder function is as follows:

Sub createfolder_subfolder()
path1 = ThisWorkbook.path & "\" & "new folder created"
CreateFolder (path1)
End Sub
Function CreateFolder(ByVal sPath As String) As Boolean
'create full sPath at once, if required
'returns False if folder does not exist and could NOT be created, True otherwise
'sample usage: If CreateFolder("C:\toto\test\test") Then debug.print "OK"
Dim fs As Object
Dim FolderArray
Dim Folder As String, i As Integer, sShare As String
If Right(sPath, 1) = "\" Then sPath = Left(sPath, Len(sPath) - 1)
Set fs = CreateObject("Scripting.FileSystemObject")
'UNC path ? change 3 "\" into 3 "@"
If sPath Like "\\*\*" Then
sPath = Replace(sPath, "\", "@", 1, 3)
End If
'now split
FolderArray = Split(sPath, "\")
'then set back the @ into \ in item 0 of array
FolderArray(0) = Replace(FolderArray(0), "@", "\", 1, 3)
On Error GoTo hell
'start from root to end, creating what needs to be
For i = 0 To UBound(FolderArray) Step 1
Folder = Folder & FolderArray(i) & "\"
If Not fs.FolderExists(Folder) Then
fs.CreateFolder (Folder)
End If
Next
CreateFolder = True
hell:
End Function

path is the path to the folder that you want to create.

Using the macro createfolder_subfolder

The macro createfolder_subfolder is a macro that can be used to create a folder and a subfolder. The code for the macro is as follows:

See also  Multiple Loops in Excel Vba

Function CreateFolder(ByVal sPath As String) As Boolean

Under this macro, you have to pass the argument which is the folder path of the new folder:

path1 = ThisWorkbook.path & "\" & "new folder created"

vba create folder function

You are creating a folder named “new folder created” in the same location as this file is kept.

vba created folder

But you can create the same in any other location by giving the complete path in address:

path1 = “C:\documents\new folder created”

Now, in order to create a subfolder, you can use the path as follows:

path1 = ThisWorkbook.path & “\” & “new folder created” & “\” & “new subfolder created”

vba new subfolder created

As you can see in the picture above, the new directory and subdirectory have been created.

Automating Folder Creation for File Storage

Imagine you’re working on a project that generates multiple reports, and you want to save each report in a folder named after the project and subfolders based on dates or categories. Here’s how you can automate this using Excel VBA:

Sub CreateProjectFolders()
Dim mainPath As String
Dim projectFolder As String
Dim subfolder As String
mainPath = "C:\Projects"
projectFolder = mainPath & "\" & Range("A1").Value
If Dir(projectFolder, vbDirectory) = "" Then
MkDir projectFolder
End If
subfolder = projectFolder & "\" & "Reports"
If Dir(subfolder, vbDirectory) = "" Then
MkDir subfolder
End If
End Sub

In this example, you define the main project folder and subfolders based on your project’s requirements. You can change the project name dynamically, create subfolders as needed, and easily save reports in the correct location.

Handling Errors and Exceptions

When working with file and folder creation, it’s essential to anticipate and handle potential errors. Here’s an updated version of your CreateFolder function with improved error handling:

See also  Regular Expression in Excel Vba

Function CreateFolder(ByVal sPath As String) As Boolean
Dim fs As Object
Dim FolderArray
Dim Folder As String, i As Integer
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo 0
If fs Is Nothing Then
CreateFolder = False
Exit Function
End If
If Right(sPath, 1) = "\" Then sPath = Left(sPath, Len(sPath) - 1)
FolderArray = Split(sPath, "\")
For i = 0 To UBound(FolderArray) Step 1
Folder = Folder & FolderArray(i) & "\"
If Not fs.FolderExists(Folder) Then
On Error Resume Next
fs.CreateFolder (Folder)
On Error GoTo 0
End If
Next
CreateFolder = True
End Function

In this version, we’ve added error handling to gracefully handle situations where the FileSystemObject cannot be created or if there are issues creating folders. This ensures that your VBA code doesn’t break unexpectedly and can continue running with proper error notifications.

Whether it’s automating file storage or implementing robust error handling, VBA can be a powerful tool for enhancing your Excel applications.