Solid Edge Revision Manager Object Library
GetDirs Method
Specifies the URL path of the parent folder location, whose child folder structure will be returned.
Specifies the number of subfolders found.
Specifies the subfolders found.
Description
This method returns a subfolder listing for the specified location -- the number and list of subfolders existing in the tree of the parent folder on the SharePoint server.
Syntax
Visual Basic
Public Function GetDirs( _
   ByVal ParentUrl As String, _
   ByRef numberOfSubFoldersFound As Long, _
   ByRef ListOfSubFoldersFound As Variant _
) As Long
Parameters
ParentUrl
Specifies the URL path of the parent folder location, whose child folder structure will be returned.
numberOfSubFoldersFound
Specifies the number of subfolders found.
ListOfSubFoldersFound
Specifies the subfolders found.
Example
Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objApplication As RevisionManager.Application = Nothing
        Dim objInsight As RevisionManager.Insight = Nothing
        Dim ParentUrl As String
        Dim NumberOfSubFoldersFound As Long
        Dim aListOfSubFoldersFound As Object = Nothing

        Try
            ' Start Revision Manager.
            objApplication = New RevisionManager.Application

            ' Get reference to Insight object.
            objInsight = objApplication.Insight

            ParentUrl = "http://solidvm/Engineering/PreReleased/PreReleasedDocLib"

            objInsight.GetDirs(ParentUrl, NumberOfSubFoldersFound, aListOfSubFoldersFound)
        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objInsight Is Nothing) Then
                Marshal.ReleaseComObject(objInsight)
                objInsight = Nothing
            End If

            If Not (objApplication Is Nothing) Then
                objApplication.Quit()
                Marshal.ReleaseComObject(objApplication)
                objApplication = Nothing
            End If
        End Try
    End Sub

End Module
See Also

Insight Object  | Insight Members

Send comments on this topic.