用VB如何知道当前文档的类型(Product/part/dawing)?

我使用VB，定义一个文档DOCUMENT对像，并且让其为当前CATIA激活态的文档，怎么能知道这个文档的类型呢？是装配件还是部件还是工程图？

谢谢大家！

楼上说的这个方法更好，我找到了示例代码：
...
' Retrieve the active document
Dim oDocument As Document
Set oDocument = CATIA.ActiveDocument

' Test the document's type, if it is not a drawing document the macro stops
If TypeName(oDocument) = "DrawingDocument" Then
    Dim oDrawingDocument As DrawingDocument
    Set oDrawingDocument = oDocument
Else
    MsgBox "This macro can be run with a drawing document only."
    Exit Sub
End If
另外，英文资料就是ds自带的，装好开发环境后就有。

TypeName(Doc)

谢谢，十分感谢您。但这样是用返回文件名的办法，是否有直接判断类型的办法呢？

还有，我看您似乎是从什么地方找来的这样一段英文的参考资料。我英语比较一般，所以一直期望一些汉语材料。不过现在我已经放弃这个想法了，英文的累点也将就看啊，总比没有强。能不能请问您的英文资料从哪里获得的？现在自学CATIA的二次开发有哪些途径啊？现在觉得资料奇缺。

再次感谢您。

Document类型有的属性叫Document 。
Property FullName( ) As CATBSTR (Read Only)

Returns the document's full file name, including its path.
Example:
This example retrieves in DocFullName the Doc document's full file name.
DocFullName = Doc.FullName

The returned value is like this:
e:\users\psr\Parts\MyNicePart.CATPart