How to create folders and files automatically using VBA. Watch the video below:
Here’s the complete VBA code to create the folder and files quickly and easily:
Option Explicit
Sub CreateNewFolderAndFile()
Dim strFolderName As String
Dim strFolderExists As String
strFolderName = “C:\CreateFolder\”
strFolderExists = Dir(strFolderName, vbDirectory)
If strFolderExists = “” Then
MsgBox “The folder doesn’t exist!”
MkDir strFolderName
MsgBox “New Folder created successfully!”, vbInformation, “Folder Created”
Else
MsgBox “The selected folder already exists!”
End If
Dim wb As Workbook
Dim strFileName As String
Dim strFileExists As String
strFileName = InputBox(“Enter a file name like abc.xlsx”, “File Name”)
strFileName = strFolderName & strFileName
strFileExists = Dir(strFileName)
If strFileExists = “” Then
MsgBox “The selected file doesn’t exist” & strFileName
Else
MsgBox “The file exists” & ” ” & strFileName
Exit Sub
End If
Set wb = Workbooks.Add
wb.SaveAs strFileName
wb.Close
MsgBox “The new file has been created successfully in the folder!”, vbInformation, “File Created”
End Sub