VBA从Program Files调用vbs文件，不会调用

Question

我目前有以下代码来调用Program Files中的文件夹中的vbs文件。它最初位于不同的位置（在同一文件夹中）并且可以工作，但现在Program Files中的文件夹旁边有一个挂锁符号，并且在更改位置后（VBA也为此更新），它赢了“ t调用该文件。我想知道为什么会这样。

Sub ChangeThemeBasic()

Dim filespe As String
filespe = "cmd.exe /c C:\Program Files\Theme Changer\ChangeTheme.vbs"
X = Shell(filespe, 1)

End Sub

编辑：

这有些原因，我不知道为什么：

Sub Test()
Shell "Explorer.exe ""C:\Program Files\Theme Changer\ChangeTheme.vbs""",1
End Sub

Answer 1

来自评论

Sub ChangeThemeBasic()

Dim filespe As String
filespe = "cmd.exe /c " & Environ("AppData") & "\Theme Changer\ChangeTheme.vbs"
X = Shell(filespe, 1)

End Sub