oFolder = Left(oPath, InStrRev(oPath, "C:\Inventor Workspace\PUBLISHED")) & "C:\Inventor Workspace\PUBLISHED"
'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then
System.IO.Directory.CreateDirectory(oFolder)
End If