|
ED
|
avaliable
|
RT
|
avaliable
|
This method returns a sub-folder from type "FileManagerFolder".
Sub FolderItem() Dim zFileManager As FileManager 'Object from type FileManager Dim zFileManagerFolder As FileManagerFolder 'Child object from type FileManager Dim zFileManagerItem As FileManagerFileItem 'Child object from type FileManagerFolder Dim zFolderItem As FileManagerFolder 'Child object from type FileManager 'Fill the object Set zFileManager = MyWorkspace.ActiveDocument.FileManager 'Read the "help list" Set zFileManagerFolder = zFileManager.FolderItem(10) 'Read a sub folder item Set zFolderItem = zFileManagerFolder.FolderItem(0) 'Add a file at the created sub-folder zFolderItem.AddItem ("C:\Programme\COPA-DATA\Help\editor.chm") End Sub