Исходный код

'======================================================================
'Выгрузить файлы объекта на жесткий диск
On Error Resume Next
ThisObject.CheckOut
If Err<>0 Then
        MsgBox "Ошибка выгрузки файлов" & Chr(13) &_
        "(возможно, один из них открыт на редактирование)."
End If
'======================================================================