Create folder path if does not exist (saving from VBA)

by

You need to check if the folder exists. If not, then make it. This function does the job. Place it before saving your workbook.

'requires reference to Microsoft Scripting Runtime
Function MkDir(strDir As String, strPath As String)

Dim fso As New FileSystemObject
Dim path As String

'examples of the input arguments
'strDir = "Folder"
'strPath = "C:\"

path = strPath & strDir

If Not fso.FolderExists(path) Then

' doesn't exist, so create the folder
          fso.CreateFolder path

End If

End Function

it’s better to avoid using Shell command for this as it is likely to return errors for various reasons. Your code even ignores/bypasses errors which is not wise.

More Related Contents:

  1. Excel Number Separation [closed]
  2. excel vba compare & copy worksheets from 2 excel files
  3. VBA Stuck after certain loop
  4. How do I use FileSystemObject in VBA?
  5. Is the . in .Range necessary when defined by .Cells?
  6. How to return a result from a VBA function
  7. Cycle through sub-folders and files in a user-specified root directory [duplicate]
  8. Convert Text to Date?
  9. Loop through each cell in a range of cells when given a Range object
  10. Properly Handling Errors in VBA (Excel)
  11. Password hash function for Excel VBA
  12. Is there a way to slow down a Web Scraper so it will pick up the code?
  13. Create a folder and sub folder in Excel VBA
  14. Aggregate, Collate and Transpose rows into columns
  15. VBA Excel sort range by specific column
  16. Select method of Range class failed via VBA
  17. Renaming Files with Excel VBA
  18. Is there a way to import data from .csv to active excel sheet?
  19. Comparison of Dictionary, Collections and Arrays
  20. Break out of a While…Wend loop
  21. How to add events to dynamically created controls (buttons, listboxes) in Excel VBA userform
  22. Error 1004 when setting Range.Locked
  23. How to extract groups of numbers from a string in vba
  24. Excel VBA – select multiple columns not in sequential order
  25. How to check whether certain sheets exist or not in Excel-VBA? [duplicate]
  26. Application.WorksheetFunction.Match method
  27. Excel – Using COUNTIF/COUNTIFS across multiple sheets/same column
  28. Delete all data rows from an Excel table (apart from the first)
  29. Macros Not Showing Up in Macro Table
  30. Excel telling me my blank cells aren’t blank

Leave a Comment