[AP] 取得notes安裝目錄

'//取得notes安裝目錄
how to get installation path in notes

'//在UI使用
Dim objshell As Variant
Set objShell = CreateObject("WScript.Shell")
strPath = objShell.ExpandEnvironmentStrings("%TEMP%") 

'//後端使用
strPath = Environ("Temp")