将 VB6 的 Data 文件夹移出 Program Files答案

【问题标题】：Moving a VB6's Data folder out of Program Files将 VB6 的 Data 文件夹移出 Program Files
【发布时间】：2010-12-19 22:25:42
【问题描述】：

我维护一个 VB6 应用程序，它将其数据（访问文件）存储在应用程序文件夹的子文件夹中。因此，当用户将应用程序安装到默认位置C:\Program Files\MyApp 时，数据最终会出现在虚拟存储中。我现在被赋予了将 1000 个左右的 App.Path 语句转换为不会有任何安全问题的 Data 文件夹的路径的任务。有人可以通过指出一些资源的方式来帮助我吗？这些资源将向我提供如何处理Users\< Username>\AppData\Local\ 文件夹中的数据？
我应该使用本地 AppData 文件夹，还是让用户选择合适的位置？

【问题讨论】：

几乎是 this question 的副本。在 Bob Riemersma 和 Cody Gray 的帮助下，查看accepted answer，我在其中
我不久前遇到了这个确切的问题。你有我的同情。请注意，App.Path 不一致，因为它为根返回“C:\”，但省略了其他目录的最后一个“\”。我们为它创建了一个 shell 函数。这很可能永远不会成为问题，但了解这些事情是件好事。
@MarkJ：这个问题确实与您如此雄辩而优雅地回答的另一个问题完全相同。我会投票关闭这个。

标签： vb6 appdata

【解决方案1】：

我会使用本地 AppData 文件夹：

Dim sAppData As String

sAppData = Environ("USERPROFILE") & "\AppData"

【讨论】：

【解决方案2】：

如果我们假设几件事：

这只是 Vista 或更高版本的问题。
您的数据位于 App.Path 下的子文件夹中。

...我有一种可以使用的解决方法。

请注意，当我有一堆旧的 VB6 程序被编写为使用 App.Path 下的文件夹中的数据时，我只使用这个技巧，这是一种快速而肮脏的 hack，可以让很多程序快速运行。我几乎总是添加或更新应用程序清单，主要是为了防止虚拟化。

我所做的更改是：

向 Sub Main 添加一些代码（如果程序还没有 Sub Main，则插入一个 Sub Main）。
将两个 Class 模块（由新的 Sub Main 代码调用）添加到项目中。

部署新程序时，在 Vista 或更高版本上，该程序需要以管理员身份运行一次。在我的加载项代码的最新版本中，如果需要，程序将提示用户重新运行提升它，并在确定后它会这样做并自行终止。

第一次运行后，一切都应该是正常的，运行起来就像在 Win2K、XP 等下一样。

这个需要提升的启动代码提供了 PathLinks 类所需的 App.Path 子文件夹的列表。

Pathlinks 在 Public 特殊文件夹下创建一个程序文件夹，然后为该文件夹下的数据创建匹配的子文件夹。接下来，它将这些 App.Path 子文件夹中的所有文件和子文件夹移动到新位置。最后，它会在 App.Path 下创建指向新文件夹的符号链接。

如果在 Vista 之前的 Windows 下运行，PathLinks 只会创建任何不存在（即通过安装）的 App.Path 子文件夹列表（在 App.Path 下）。

从这里开始，程序将在新位置找到文件，根本不需要对其使用 App.Path 进行任何更改。

两个加载项类之一是装饰性的，您可以将其删除。它只是让启动代码调用 TaskDialog 而不是使用 MsgBox 调用。

一定要向下滚动查看PathLinks - Tame App.Path Under Vista+发布的最新版本

请注意，示例项目在执行“首次提升”技巧时会跳过运行应用程序。它只是在重新定位数据并对其进行符号链接后在 Sub Main 中执行 Exit Sub。

【讨论】：

请注意，您可以获取代码，而不是将其添加到应用程序中，您可以创建一个小的安装后帮助程序。对于 PDW 安装，您甚至可以创建一个自定义 Setup1.exe，在最后执行这些步骤，或者编写帮助程序以运行重命名的 Setup1（称为 Setup2），将帮助程序命名为 Setup1，以便引导程序运行帮助程序，该程序运行重命名的“Setup2”，等待完成，删除 Setup2，然后移动数据并创建符号链接。
感谢您，但我会采取漫长而痛苦的方式来删除所有 App.Path 引用。

【解决方案3】：

可以找到有用的讨论here

【讨论】：

【解决方案4】：

我不知道是否还有人（因为我还在寻找它）正在寻找这个。但我在这个页面上找到了一个很好的答案 http://www.vbforums.com/showthread.php?564256-Classic-VB-Where-should-I-store-the-files-that-my-program-uses-creates

我使用此代码获取正确的文件夹路径。

'this peace of code must be on the top of jour module in the declaration part.
Public Enum eSpecialFolders
  SpecialFolder_Documents = &H5         'the Documents folder for the current Windows user
  SpecialFolder_Favorites = &H6         'for the Favorites folder
  SpecialFolder_Videos = &HD            'For the Video's folder
  SpecialFolder_Desktop = &H10          'for the desktop folder
  SpecialFolder_AppData = &H1A          'for the current Windows user, on any computer on the network [Windows 98 or later]
  SpecialFolder_LocalAppData = &H1C     'for the current Windows user, on this computer only [Windows 2000 or later]
  SpecialFolder_CommonAppData = &H23    'for all Windows users on this computer [Windows 2000 or later]
  SpecialFolder_Windows = &H24          'for the windows folder
  SpecialFolder_System32 = &H25         'For the windows system32 folder
  SpecialFolder_Pictures = &H27         'for the picture folder
  SpecialFolder_User = &H28             'for user folder C:\Users\sidxxxx
End Enum

'this can be placed before or after other functions
Public Function SpecialFolder(pFolder As eSpecialFolders) As String
'Returns the path to the specified special folder (AppData etc)

Dim objShell  As Object
Dim objFolder As Object

  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.namespace(CLng(pFolder))

  If (Not objFolder Is Nothing) Then SpecialFolder = objFolder.Self.Path

  Set objFolder = Nothing
  Set objShell = Nothing

  If SpecialFolder = "" Then Err.Raise 513, "SpecialFolder", "The folder path could not be detected"

End Function

我像这样在同一个模块中使用它在另一个函数中。

文件名 = SpecialFolder(SpecialFolder_AppData) & "\Log\" & "log.log"

这将设置 FileName = "C:\Users\username\AppData\Roaming\Log\log.log"

亲切的问候

【讨论】：