Check if a Folder Exists using VBA

VBA code to check whether a folder exists or not, along with the steps to implement it.

Explanation of the Code:

1. Dim folderPath As String
   • Declares a string variable to store the folder path.
2. folderPath = "C:\Users\YourUsername\Documents\MyFolder"
   • Assigns the folder path to the folderPath variable. Update this with the desired folder location.
3. folderExists = (Dir(folderPath, vbDirectory) <> "")
   • Uses the Dir function to check if the folder exists.
   • vbDirectory ensures that the function looks for a directory instead of a file.
   • If the folder exists, Dir returns the folder name; otherwise, it returns an empty string ("").
4. If folderExists Then
   • Checks the value of folderExists. If True, it means the folder exists.
5. MsgBox "The folder exists at: " & folderPath
   • Displays a message box confirming the folder’s existence.
6. Else
   • Executes if the folder does not exist.
7. MsgBox "The folder does not exist at: " & folderPath
   • Displays a message box indicating the folder does not exist.

Steps to Use the Code:

1. Open VBA Editor:
   • Open Excel and press Alt + F11 to launch the VBA editor.
2. Insert a Module:
   • Go to Insert > Module to add a new module.
3. Paste the Code:
   • Copy the above code and paste it into the module.
4. Modify the Folder Path:
   • Replace C:\Users\YourUsername\Documents\MyFolder with your desired folder path.
5. Run the Macro:
   • Close the VBA editor and return to Excel.
   • Press Alt + F8, select CheckFolderExists, and click Run.

Output:

• If the folder exists:
  A message box will display:
  "The folder exists at: C:\Users\YourUsername\Documents\MyFolder"
• If the folder does not exist:
  A message box will display:
  "The folder does not exist at: C:\Users\YourUsername\Documents\MyFolder"