Creating folder in MS Word

[EPamperin12]

I have a form in MS Word that people will fill out for different schools. I want to be able to create a folder that will be used. I have no problems creating the folder.
My problem is if the folder already exists I get an error saying Path/File Access Error.

Sub TestingSave()
 Dim oFFs As FormFields
 Dim SchoolName As String
 Dim SchoolCode As String
 Dim Folder As String
 Set oFFs = ActiveDocument.FormFields
 
    oFFs("SchoolName").Select
    SchoolName = Selection
    oFFs("SchoolCode").Select
    SchoolCode = Selection
    Folder = "C:" & SchoolName & " (" & SchoolCode & ")"
    
    If Dir(Folder) = "" Then
        MkDir (Folder)
        oFFs("ReturnValue").Select
        Selection = "New Folder Created"
    End If

SaveAs ("H:" & SchoolName & " (" & SchoolCode & ")\Testing1.doc")
End Sub

Any Help is most appreciated.

 

[Richard Schollar]

Hi

Firstly let me state I have no experience of using VBA with Word. Right, that out of the way, I would have thought the If test would spec whether or not you have such a folder. If this is not happening, then I suspect that youneed to pass a second argument to Dir:

If Dir(Folder,vbDirectory) = "" Then
'blah, blah, blah

If this doesn't work, I would just use an On Error Resume Next:

On Error Resume Next
MkDir Folder
On Error Goto 0

In the example above, you don't need to use an If statement at all...

 

[EPamperin12]

That works great. Thank you.