在VB2010安装项目中获取安装文件夹路径字符串

Question

如何获取安装文件夹路径并使用VBScript输入变量？

我的VBScript将文件放到某些文件夹中，我想动态地执行它。

Answer 1

答案是您不能，因为Visual Studio设置没有该功能。所有自定义操作，vbscripts，C ++，C＃或安装文件后运行的所有操作。在UI序列之前或期间无法运行代码。如果您想从系统的某个位置获取位置，则安装项目会进行搜索以获取默认值。

Answer 2

我替代了这个问题。我使用Shell.BrowseForFolder方法浏览文件夹并返回其路径：

function fnShellBrowseForFolderVB()
        dim objShell
        dim ssfWINDOWS
        dim objFolder

        ssfWINDOWS = 36
        set objShell = CreateObject("shell.application")
            set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                    'Add code here.
                end if
            set objFolder = nothing
        set objShell = nothing
    end function

来源：http://msdn.microsoft.com/en-us/library/windows/desktop/bb774065(v=vs.85).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

希望这有助于每个人。