Returns the subfile with the given node number.

Syntax:

 
GetSubFile( NodeNumber As Long ) As SubFile
Return: SubFile
Parameters: NodeNumber Node number of the subfile to be returned.
Example: 
Dim ProjFile As ProjectFile
Dim TU As TransUnit
Dim SubFile As SubFile

Set ProjFile = Application.ActiveProjectFile
Set TU = Application.ActiveTransUnit

If (ProjFile.IsSubFile(TU.parentNode)) Then
    Set SubFile = ProjFile.GetSubFile(TU.parentNode)
End If

See also:

Class ProjectFile

Last Updated: 03/11/04