/*
        This example demonstrates how to ask the user for the path to a workgroup and 
        to connect to it.  It uses the XSIApplication.Workgroups property to discover if 
        the workgroup already exists
*/
AddWorkgroupWithUI() ;
function AddWorkgroupWithUI()
{
        var strTitle = "Connect to Workgroup" ;
        var strHelpText = "Pick the root location of an existing workgroup" ;
        var strDefault = "" ; 
        var strPath = PickFolder( strTitle, strHelpText, strDefault ) ;
        if ( strPath != "" ) {
                aWorkgroups = new VBArray( Application.Workgroups ) ;
                cntWorkgroups = aWorkgroups.ubound( 1 ) + 1
                for ( var i=0 ; i<cntWorkgroups; i++ ) {             
                        var existingWorkgroup = aWorkgroups.getItem( i ) ;
                        if ( existingWorkgroup == strPath ) {
                                XSIUIToolkit.MsgBox( "This workgroup is already in the list" ) ;
                                return ;
                        }
                }
                try {
                        Application.AddWorkgroup( strPath ) ;
                } catch( e ) {
                        // Maybe the path isn't valid
                        XSIUIToolkit.MsgBox( "Failed to addworkgroup\n" + e.description ) ;
                }
        }
}