Try this. First create Folder1 if it doesn't exist and then create Folder2 (then Folder3 and so on).
Private Sub DirectoryExists()
Dim Msg, Style, Title, Response
Dim strFolders() As String
Dim strFolderName As String
Dim I As Integer, N As Integer
strFolders() =...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.