Check if folder exists and if not create 1

[clhare]

Is there an easy way to check and see if a specific folder already exists, and if it doesn't, create the folder?

 

[clhare]

I should probably add that I am working in Word.

I apologize for the double entry in the forum. I got an error the first time, but it apparently made it anyway!

 

[ssVBAdev]

Use the File System Object:

Set FSO = CreateObject("Scripting.FileSystemObject&quot

Then just test for the folder and/or create it:

If Not FSO.FolderExists(FolderPath) Then
Set CreatedFolder = FSO.CreateFolder(FolderPath)
End If

 

[clhare]

Thank you for the code! This works beautifully! Are the variables FSO and CreatedFolder both objects then?

Cheryl

 

[ssVBAdev]

Yes, they are.