制作VB6应用MSI安装包：如何设置属性值为格式化安装日期时间？

兄弟，我太懂这种抱着VB6老应用做MSI的痛苦了——一边心里默念“赶紧把这玩意儿升级了”，一边还得把安装程序的细节抠明白😂。针对你要添加用户数据备份文件夹的需求，结合每台机器只对应单个用户的情况，给你几个实操性很强的思路：

1. 选对备份文件夹的位置（关键！） #

别把备份文件夹放在程序安装目录里！程序目录一般是系统级路径（比如C:\Program Files\），普通用户默认没写入权限，很容易导致备份失败。既然每台机器是单用户专属，直接把备份路径指向当前用户的AppData目录就好，用MSI的内置属性就能搞定：

• 目标路径设为 [AppDataFolder]你的应用名\Backup\
  这个路径对当前用户是完全可写的，不会有UAC权限问题，也符合Windows的最佳实践。

2. 用自定义动作自动备份数据 #

如果需要在安装/升级时自动备份现有数据文件，写个简单的VBScript自定义动作就行（毕竟是VB6老应用，VBScript上手快）：

• 先写一个BackupUserData.vbs脚本，示例代码如下：

Set fso = CreateObject("Scripting.FileSystemObject")
' 从MSI属性获取原数据文件路径和备份路径
sourceDataPath = Session.Property("ProgramFilesFolder") & "你的VB6应用名\Data\userdata.dat"
backupRootPath = Session.Property("AppDataFolder") & "你的应用名\Backup\"
' 生成时间戳，避免覆盖旧备份
timeStamp = Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2) & "_" & Right("0" & Hour(Now()), 2) & Right("0" & Minute(Now()), 2)

' 创建备份文件夹（如果不存在）
If Not fso.FolderExists(backupRootPath) Then
    fso.CreateFolder(backupRootPath)
End If

' 复制数据文件到备份目录，带时间戳命名
If fso.FileExists(sourceDataPath) Then
    fso.CopyFile sourceDataPath, backupRootPath & "userdata_" & timeStamp & ".dat", True
End If

• 把这个脚本添加到MSI的“自定义动作”里，设置为首次安装和升级时都执行，并且放在InstallFiles步骤之前（避免安装程序覆盖原数据后才备份）。记得给脚本传递正确的MSI属性参数，确保路径能正确解析。

3. 处理特殊情况：必须用程序目录的场景 #

如果因为历史原因非要把备份文件夹放在程序安装目录里，那一定要给这个文件夹设置权限：

• 在MSI的“组件”面板找到备份文件夹对应的组件，进入“权限”选项卡，添加Authenticated Users用户组，赋予Modify和Write权限。不过还是那句话，这种方式不如用AppData目录稳妥，容易踩权限坑。

4. 避免清空现有备份 #

如果用户机器上已经存在备份文件夹，安装时千万别把它清空：

• 在MSI里把备份文件夹的“永久”属性勾选上，或者在自定义动作里加判断逻辑：如果备份文件夹已存在，就跳过创建步骤，只复制新的备份文件。

内容的提问来源于stack exchange，提问作者NLInnett