Create a folder

Question

Create a folder

David Rose 76

I have written a Word template in VBA that creates a document that has to be saved to a particular folder. The code for saving is:

Set FD = Application.FileDialog(msoFileDialogSaveAs)
With FD
.InitialFileName = strLocation
.Show
.Execute
End With

where strLocation defines the location and folder in which the document is to be saved.

If the folder is not found, I would like the VBA coding to detect that and create the folder, then save the document to that folder. I am not sure how to accomplish this in VBA. All help is truly appreciated.

TIA
David

Tom van Stiphout 40,211 Reputation points MVP Volunteer Moderator

2022-01-02T19:54:38.52+00:00

What if the folder is a sub-sub-sub-sub-sub folder? A simple MkDir is not going to cut it. You will have to do a recursive function. You can find it by some searching online.
I think it's perfectly OK to require an existing folder, which you can do by setting some FileDialog properties.
Viorel 127K Reputation points

2022-01-03T17:21:22.51+00:00

The alert seems to be displayed by the standard dialog before returning from Word to your code, therefore you cannot create the folder programmatically.

However, you can display a similar dialog using the GetSaveFileName system function (from Windows API). Some VBA definitions can be found here: https://social.msdn.microsoft.com/Forums/office/en-US/1db77ef4-f363-4e60-b680-6cf1c44e22bd and requires some effort. If you do not specify the OFN_PATHMUSTEXIST option, then the dialog will not display the alert and will let you to create the folders.
David Rose 76 Reputation points

2022-01-04T21:32:16.13+00:00

Hi Tvan

I should have given an example of strLocation so you have something concrete to look at;

strLocation = "C:\Users\Toni\OneDrive\DR Rose\YRM\Client files\Cohen\Change Orders\No. " _
& TextBox34.Value & "\C.O. No. " & TextBox34.Value & ".docx"

TextBox34 has the number of the current Change Order that is being created in the document. Suppose the value of TextBox34 is 5. If there is no folder called No. 5 in the folder called Change Orders, I want the code to recognize that and create the sub folder called No. 5 in the Change Order folder, and then save the document called C.O. No. 5.docx in the newly created sub folder.

When the code executes the way I have written it, what happens if it doesn't find the folder that has been specified in strLocation? Does windows generate something like a "Folder not found" message back to the code? If it does, that's when the code would create the new sub folder and then continue with the Save.

TIA
David