|
ED
|
avaliable
|
RT
|
not used
|
This method returns the folder object for the specified folder.
Sub FolderItem() Dim zFileManager As FileManager 'Object from type FileManager Dim zFileManagerFolder As FileManagerFolder 'Object from type FileManagerFolder 'Fill the object Set zFileManager = MyWorkspace.ActiveDocument.FileManager 'Read the "language list" Set zFileManagerFolder = zFileManager.FolderItem(9) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Language_Tables\English.txt") 'Read the "graphics list" Set zFileManagerFolder = zFileManager.FolderItem(2) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Graphics\zenOn_Logo.jpg") 'Read the "help list" Set zFileManagerFolder = zFileManager.FolderItem(10) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Help\help.chm") 'Read the "multimedia list" Set zFileManagerFolder = zFileManager.FolderItem(5) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Media\intro.wav") 'Read the "lists list" Set zFileManagerFolder = zFileManager.FolderItem(4) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Lists\List.doc") 'Read the "drivers list" Set zFileManagerFolder = zFileManager.FolderItem(15) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Drivers\driver.exe") 'Read the "others list" Set zFileManagerFolder = zFileManager.FolderItem(17) 'Add a new item into the list zFileManagerFolder.AddItem ("C:\Others\infos.pdf") End Sub
ModulePaths | Constant |
tpPathAdditional | 17 |
tpPathAlloc | 3 |
tpPathBackup | 7 |
tpPathBMP | 2 |
tpPathDrivers | 15 |
tpPathExpArchives | 8 |
tpPathExport | 1 |
tpPathGraphic | 0 |
tpPathHelp | 10 |
tpPathLanguage | 9 |
tpPathList | 4 |
tpPathMedia | 5 |
tpPathPCE | 12 |
tpPathPictures | 11 |
tpPathReport | 6 |
tpPathSystem | 13 |
tpPathVideos | 14 |
FileManager, FileManagerFolder