Create a folder and sub folder in Excel VBA

by

Another simple version working on PC:

Sub CreateDir(strPath As String)
    Dim elm As Variant
    Dim strCheckPath As String

    strCheckPath = ""
    For Each elm In Split(strPath, "\")
        strCheckPath = strCheckPath & elm & "\"
        If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath
    Next
End Sub

More Related Contents:

  1. Dir() function not working in Mac Excel 2011 VBA
  2. VBA Shell function in Office 2011 for Mac
  3. VBA (Excel) Dictionary on Mac?
  4. Excel 2013 VBA Clear All Filters macro
  5. Checking if a worksheet-based checkbox is checked
  6. How do I issue an HTTP GET from Excel VBA for Mac
  7. How can I install/use “Scripting.FileSystemObject” in Excel 2010 for MAC?
  8. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  9. SumIf using Excel VBA
  10. How can I call a macro which contains a loop but only run one iteration of that loop?
  11. Test or check if sheet exists
  12. How can I find last row that contains data in a specific column?
  13. Copy from one workbook and paste into another
  14. Open Excel file for reading with VBA without display
  15. Excel VBA App stops spontaneously with message “Code execution has been halted”
  16. How to remove all non alphanumeric characters from a string except period and space in excel?
  17. Find last used cell in Excel VBA
  18. Does Dir() make any guarantee on the order of files returned?
  19. How to clear memory to prevent “out of memory error” in excel vba?
  20. Assign on-click VBA function to a dynamically created button on Excel Userform
  21. What are .NumberFormat Options In Excel VBA?
  22. Excel: How to check if a cell is empty with VBA? [duplicate]
  23. Extract Data from Word Document to an Excel SpreadSheet
  24. Excel macro -Split comma separated entries to new rows [duplicate]
  25. Get text from clipboard using GetText – avoid error on empty clipboard
  26. Display milliseconds in Excel
  27. VBA editor auto-deletes spaces at the ends of lines
  28. Select entire column in table using Excel VBA
  29. Reducing WithEvent declarations and subs with VBA and ActiveX
  30. How to protect Excel workbook using VBA?

Leave a Comment