VB6：在 AppData 中执行一个 EXE

Question

我有以下子：

Public Sub ShellApp(URL As String)

        Dim vResult As Long
        vResult = ShellExecute(0, "open", URL, vbNullString, vbNullString, vbMinimizedFocus)

   End If
End Sub

这是在一个无法更改的层上，因为该子需要几个功能。

现在，以我们的 Main() sub 为例，我们检查保存在 EXE 旁边的文本文件中的添加插件列表，并在 for 循环中调用上述 Sub 并使用插件的路径来运行它们。因此，如果我在文本文件中有如下 3 个插件：

C:\App1.EXE

C:\App2.EXE

C:\Users\AhmadMusa\AppData\Roaming\App3.exe

前两个应用程序将在所有 PC 上正常运行（静态路径），但第三个应用程序将无法在除我的 PC 之外的任何 PC 上运行...请注意，App3 始终安装在任何 PC 上的 AppData 上，因此如何动态访问它以从任何 PC 上运行应用程序，而无需对子系统进行调整。

第三个应用程序在文本文件中放置的路径是什么，以便它可以在所有 PC 上运行？

我尝试过 (AppData\Roaming\App3.exe) 但它不起作用...我在一个线程 (http://www.vbforums.com/showthread.php?529776-RESOLVED-Open-a-folder-in-AppData) 上找到了可以调用类似 (shell:AppData\Roaming\App3.exe) 的东西无法运行 App3.exe，但如果我调用 (shell:AppData\Roaming)，它将很好地打开 Roaming 文件夹。但无法运行EXE。

有什么想法吗？

谢谢。

Answer 1

我相信不改变原来的程序“ShellApp”是没有办法解决问题的。

如果你改变主意，我认为这篇文章可能会有所帮助（有一些 tweekings）

Public Sub ShellApp(URL As String)

        Dim vResult As Long
        'vResult = ShellExecute(0, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
        vResult = ShellExecute(0, vbNullString, "cmd.exe", "/k """"" & URL & """""", vbNullString, vbNormalFocus)

End Sub

Private Sub Command1_Click()
    ShellApp "%appdata%\PROGRAME.exe"

End Sub

这是因为只有“cmd.exe”和当然批处理脚本能够扩展用百分比字符“%”括起来的变量

要在控制台启动后立即关闭控制台，请将参数“/k”更改为“/c”，

Answer 2

sub test()
    dim tmp as string
    tmp = environ("AppData ") & "\calc.exe"

    call  ShellExecute(..., tmp, ...)
end sub

按照你认为正确的方式填充其他参数 (...)

Answer 3

您需要扩展环境变量（这是%...% 所做的）：

Debug.Print Environ("APPDATA") ' will print the expanded %appdata%

所以，你应该在你的文本文件中输入：

%APPDATA%\App3.exe

如何扩展路径？您可以遍历 VB Environ 函数提供的环境变量并自己进行字符串替换（VB 方式），也可以从 ExpandEnvironmentStrings 函数（Win32 API 方式）中获益。

在使用第二个选项的 sn-p 之下：

Private Declare Function ExpandEnvironmentStrings Lib "kernel32.dll" _
                Alias "ExpandEnvironmentStringsA" ( _
                ByVal lpSrc As String, _
                ByVal lpDst As String, _
                ByVal nSize As Long) As Long

Public Function ExpandEnvironString(ByVal URL As String) As String
    Dim buf As String, bufSize As Long
    bufSize = ExpandEnvironmentStrings(URL, ByVal 0&, 0&)
    buf = String(bufSize + 1, vbNullChar)
    bufSize = ExpandEnvironmentStrings(URL, buf, Len(buf))
    ExpandEnvironString = Left$(buf, InStr(1, buf, vbNullChar) - 1)
End Function

在你调用ShellApp(URL As String)之前你应该扩展路径：

URL = ExpandEnvironString(URL)

ShellExecute 将收到扩展路径：C:\Users\AhmadMusa\AppData\Roaming\App3.exe

这是一项非破坏性更改，因为如果您的初始默认设置稍后将更改为自定义固定路径，ExpandEnvironmentStrings 函数将直接忽略它。

例子：

ExpandEnvironString("C:\App1.EXE ") 将返回 C:\App1.EXE

更多信息：

您可以通过以下过程获取所有环境变量：

Private Sub EnvironmentEntries()
    Dim Entry As String, i As Long
    i = 1
    Do
        Entry = Environ(i)
        i = i + 1
        If Entry = "" Then Exit Do
        Debug.Print Entry
    Loop
End Sub

...并在此处查看一些其他信息：

Why are there directories called Local, LocalLow, and Roaming under \Users\?