VBS中的InstallShield 2015 Automation DeleteShortcut和DeleteSubFolder

时间:2016-06-07 09:47:42

标签: vbscript automation installshield

我在vbs中使用InstallShield 2015自动化界面来自动生成设置。

一开始,我的startmenu文件夹(系统配置 - >快捷方式)结构如下所示:

Shortcuts -> [TaskBarFolder] -> [StartMenuFolder] -> ProgramMenuFolder -> ProgramMenuCompanyFolder -> ProgramMenuProductFolder -> NewShortcut1

我想使用自动化vbs脚本动态更改它。

我想删除" ProgramMenuProductFolder"使用" NewShortcut1"包括 我想重命名" ProgramMenuCompanyFolder"的显示名称。之后我想为" ProgramMenuCompanyFolder"添加新的快捷方式。文件夹中。

另一种可能性可能是将快捷方式向上移动到" ProgramMenuCompanyFolder"重命名并删除" ProgramMenuProductFolder"之后...?

以编程方式,我可以毫无问题地设置这样的Shortcut Displayname:

pProject.ISWiFeatures.Item("Hauptanwendung").ISWiComponents.Item("CMP_StartMenuShortcut").ISWiFolders.Item("[TaskBarFolder]").SubFolders("[StartMenuFolder]").SubFolders("[ProgramMenuFolder]").SubFolders("ProgramMenuCompanyFolder").SubFolders("ProgramMenuProductFolder").ISWiShortcuts.Item("NewShortcut1").DisplayName = "New name string"

我怀疑我可以删除它:

pProject.ISWiFeatures.Item("Hauptanwendung").ISWiComponents.Item("CMP_StartMenuShortcut").ISWiFolders.Item("[TaskBarFolder]").SubFolders("[StartMenuFolder]").SubFolders("[ProgramMenuFolder]").SubFolders("ProgramMenuCompanyFolder").SubFolders("ProgramMenuProductFolder").DeleteShortcut("NewShortcut1")

当我尝试类似以下内容时,我也会遇到类型失配错误:

pProject.ISWiFeatures.Item("Hauptanwendung").ISWiComponents.Item("CMP_StartMenuShortcut").ISWiFolders.Item("[TaskBarFolder]").SubFolders("[StartMenuFolder]").SubFolders("[ProgramMenuFolder]").SubFolders("ProgramMenuCompanyFolder").DeleteSubFolder("Display name of folder")    

0 个答案:

没有答案