获取VBS中的Common Documents文件夹

Question

令我非常懊恼的是，我必须使用 VBS 来编写 InstallShield 2010 LE 自定义操作。我没有 VBS 经验，所以我基本上是将我找到的代码片段放在一起。

我需要获取通用文档文件夹（CSIDL_COMMON_DOCUMENTS）。它未在 WScript.Shell.SpecialFolders 中定义（尽管 All Users Desktop 已定义）。我发现一些尝试链接到系统 DLL 的示例代码：

Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
Alias "SHGetFolderPathA" _
    (ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    ByVal hToken As Long, _
    ByVal dwReserved As Long, _
    ByVal lpszPath As String) As Long

但是当我尝试在 VbsEdit 中运行它时，我在第一行收到以下错误：

Microsoft VBScript 编译错误：预期语句结束

有什么想法吗？

Answer 1

从这里

  Const CSIDL_COMMON_DOCUMENTS = &h2e
  Dim objShell : Set objShell = CreateObject("Shell.Application")
  WScript.Echo objShell.Namespace(CSIDL_COMMON_DOCUMENTS).Self.Path

输出窃取：

C:\Documents and Settings\All Users\Documents

Answer 2

忽略 VBScript 自定义操作存在很大问题这一事实，您只需向 WindowsInstaller 询问 CommonAppDataFolder 的位置即可。

CommonAppDataFolder 属性

commonAppDataFolder = session.Property("CommonAppDataFolder")