Помогите дописать программу сохранения в PDF

[timkaam]

Добрый день, есть программка для сохранения чертежей catia в формат PDF. При запуске необходимо выбрать папку где лежат чертежи и программа открывает, сохраняет и закрывает каждый чертёж. У меня возникает проблема, на каком-нибудь чертеже происходит критическая ошибка, даже не ошибка, а либо процесс просто прерывается или catia выдаёт всем известное сообщение, "для продолжения нажмите OK" и вываливается. Может кто подскажет какую идею как обойти эти ошибки. Код программы ниже.

Код: Выделить всё

Sub CatMain()
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(0, "Выберите папку содержащую файлы чертежей", 0, 0)
If objFolder Is Nothing Then End
Dim fileSys
Set fileSys = CATIA.FileSystem
Set filefolder = fileSys.GetFolder(objFolder.self.Path)
Dim i As Integer
For i = 1 To filefolder.Files.Count
Dim IFile
Set IFile = filefolder.Files.Item(i)
If InStr(IFile.Name, ".CATDrawing") <> 0 Then
Dim Doc
Set Doc = CATIA.Documents.Open(IFile.Path)
Set partDocument1 = CATIA.ActiveDocument
Dim drawingName As String
Dim strFilePath As String
Dim intPos As Integer
Dim strFolder As String
Dim pdfname As String
    drawingName = Len(CATIA.ActiveDocument.Name)
    pdfname = Left(CATIA.ActiveDocument.Name, drawingName - 11) + ".pdf"
    strFilePath = CATIA.ActiveDocument.FullName
    intPos = InStrRev(strFilePath, "\")
    strFolder = Left(strFilePath, intPos)
Set filefolder = fileSys.GetFolder(strFolder)
partDocument1.ExportData strFolder & "\" & pdfname, "pdf"
CATIA.ActiveDocument.Close
End If
Next
End Sub


[Wireless_Fidelity]

В Documents And Settings\User\Application Data\DassaultSystemes должен быть error.log