/*

	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 ) ;

		}

	}

}