Setting Initial View Folder for All Users at Once and Forever. How???

Question

<p>Is there any way to make the initial view of all users to be a specific folder? What I want to acomplish it to show my public folders expanded and always showing a specific folder. I can do it for myselft but what about a global setting?</p>

Answer 1

I tried the following code and it does not appear to work.  Why?
Our goal is to take the destop preferences of a selected user and apply those preferences to all other users.  How can that be done?  Note:  We need to apply those preferences whether they have already set their preferences or not.
     Dim oSourceUser As InfoObject
            Dim oTargetUsers As InfoObjects
            bErrorOccurred = False
            oSourceUser = oInfoStore.NewInfoObjectCollection().InfoStore.Query("SELECT SI_NAME, SI_DATA FROM CI_SYSTEMOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.User' And SI_Name = '" & vstrSourceUserID & "'").Item(1)
            If vstrTargetUserID.Length > 0 Then
                oTargetUsers = oInfoStore.NewInfoObjectCollection().InfoStore.Query("SELECT SI_NAME, SI_DATA FROM CI_SYSTEMOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.User' And SI_Name = '" & vstrTargetUserID & "'")
            Else
                oTargetUsers = oInfoStore.NewInfoObjectCollection().InfoStore.Query("SELECT SI_NAME, SI_DATA FROM CI_SYSTEMOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.User' And SI_Name != '" & vstrSourceUserID & "'")
            End If
            For Each oUser As InfoObject In oTargetUsers
                Try
                    oUser.Properties.Add("SI_DATA", oSourceUser.Properties("SI_DATA").Properties)
                Catch ex As Exception
                    bErrorOccurred = True
                    If ex.Message.Length = 0 Then
                        strLastError = "Unknown Error Occurred"
                    Else
                        strLastError = ex.Message
                    End If
                    Exit For
                End Try
            Next
            If bErrorOccurred = False Then oInfoStore.Commit(oTargetUsers)