Hi!
I have this code that works from Excel but from Word I get an error 13/type mismatch.
Can anyone help me make this work from Word, please?
Code:
Sub CreateNewFolder()
Dim _
fso As FileSystemObject, _
fol As Folder, _
fol_add As Folder, _
fil As File
Const strFolPath As String = "\\Fileserver\commonh\GROUP\SDF_data_export"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder(strFolPath)
On Error GoTo Finish
If Not fso.FolderExists(strFolPath & "\" & ThisDocument.Textbox59.Value) Then
Set fol_add = fso.CreateFolder(fol.Path & "\" & ThisDocument.Textbox59.Value)
End If
End If
Set fso = Nothing
Set fol = Nothing
End Sub