FileSite Integration with Custom Windows Application

abc1234

Hi all,

If we install filesite in any machine and configure it and open microsoft word 2003 we will some extra menu in File tab like
File->Open (this will open a customized file open dialog of Filesite list details regarding DB, workspace,Folder structure and Documents)
File->Local Open (this is local machine file system)

I created a windows application using .Net framework 2.0 in Vb.net in one button click event i want to show the Customized file open dialog of Filesite (ie as such File-> open). The filesite has so many Dll's so i need help in getting (customized file dialog). Could some one help in which DLL to use and approach briefly or by sample code.

Thanks in Advance

abc1234

After spending more days on this i lastly found the code. This VB.net code will invoke the file site open dialog in windows Application.

Dim pDMS As IManage.ManDMS = New IManage.ManDMS
Dim pSession As IManage.IManSession
Dim PNewBrowseCmd As IMANEXT2Lib.IManBrowseCmd
Dim iContext As IMANEXTLib.ContextItems
Dim arrSelectableItems(3) As IManage.imObjectType
Dim i As Integer
pDMS = New IManage.ManDMS
pSession = pDMS.Sessions.Add(Configuration.ConfigurationManager.AppSettings("ServerName"))
pSession.Login(Configuration.ConfigurationManager.AppSettings("UserName"), Configuration.ConfigurationManager.AppSettings("Password"))
arrSelectableItems(0) = IManage.imObjectType.imTypeDocumentFolder
arrSelectableItems(1) = IManage.imObjectType.imTypeDatabase
arrSelectableItems(2) = IManage.imObjectType.imTypeDocumentSearchFolder
Dim arrSess(pDMS.Sessions.Count - 1) As IManage.NRTSession
For i = 0 To pDMS.Sessions.Count - 1
arrSess(i) = pDMS.Sessions.ItemByIndex(i + 1)
Next
PNewBrowseCmd = New IMANEXT2Lib.IManBrowseCmd
iContext = New IMANEXTLib.ContextItems
iContext.Add("NRTDMS", pDMS)
iContext.Add("SelectedNRTSessions", arrSess)
iContext.Add("ParentWindow", Me.Parent)
iContext.Add("IManExt2.BrowseCmd.SelectableObjectTypes", arrSelectableItems)
PNewBrowseCmd.Initialize(iContext)
PNewBrowseCmd.Update()
PNewBrowseCmd.Execute()
End Sub