VB中菜单调用本地程序怎么使用环境变量地址啊？

Question

Private Sub callc_click()
Shell ("C:\WINDOWS\system32\calc.exe"), vbNormalFocus
End Sub
换成Private Sub callc_click()
Shell ("%SystemRoot%\system32\calc.exe"), vbNormalFocus
End Sub
就不对了郁闷

Answer 1

先用 Environ$("SystemRoot") 取得 "C:\WINDOWS"，再拼接命令行

Answer 2

楼上正解.
一、求机器名
    Environ("COMPUTERNAME")
二、求当前登录用户的用户名
    Environ("USERNAME")
三、求WINDOWS目录
    Environ("windir")
四、求操作系统
    Environ("OS")
五、求临时目录
    Environ("TEMP") 或 Environ("TMP")

Answer 3

哈，解决了
Private Sub callc_click()
strWinDir = Environ("windir")
Shell (strWinDir & "\system32\calc.exe"), vbNormalFocus
End Sub