blocks|key|4021178|text|我将使用本地AppData文件夹：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4021179|Dim+sAppData+As+String

sAppData+=+Environ("USERPROFILE")+&+"\AppData"|code-block|syntax|javascript|4021180|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I would use the local AppData folder:

<pre><code>Dim sAppData As String

sAppData = Environ("USERPROFILE") &amp; "\AppData"
</code></pre>

blocks|key|4021229|text|好吧，如果我们假设几件事：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4021230|4021231|这只是Vista或更高版本的问题。|unordered-list-item|4021232|您的数据位于App.Path下的子文件夹中。|4021233|4021234|..。我有一种可能会用到的变通方法。|4021235|请注意，只有当我有一堆旧的VB6程序被编写为使用App.Path下的文件夹中的数据时，我才会使用这个技巧，这是一种快速而肮脏的技巧，可以让许多程序快速运行。我几乎总是添加或更新应用程序清单，主要是为了防止虚拟化。|4021236|4021237|我所做的更改是：|4021238|4021239|向Sub+Main添加一小段代码(如果程序还没有Sub+Main，则插入一个Sub+Main+)。|4021240|将两个类模块(由新的Sub+Main代码调用)添加到项目中。|4021241|4021242|部署新程序后，在Vista或更高版本上，该程序需要以管理员身份运行一次。在我的插件代码的最新版本中，如果需要，程序将提示用户重新运行它，当使用OKed时，它会这样做并自动终止。|4021243|在第一次运行之后，一切都应该正常运行，就像在Win2K、XP等下运行一样。|4021244|4021245|此需要提升的启动代码提供了PathLinks类所需的App.Path子文件夹的列表。|4021246|Pathlinks在公共特殊文件夹下创建一个程序文件夹，然后为该文件夹下的数据创建匹配子文件夹。接下来，它将这些App.Path子文件夹中的所有文件和子文件夹移动到新位置。最后，它在App.Path下创建指向新文件夹的符号链接。|4021247|如果在Vista之前的Windows下运行，PathLinks只会创建不存在(即通过安装)的任何App.Path子文件夹列表(在App.Path下)。|4021248|从这里开始，程序将在新位置找到文件，而不需要对App.Path的使用进行任何更改。|4021249|4021250|两个外接程序类中有一个是修饰的，您可以将其移除。它只是让启动代码调用TaskDialog，而不是使用MsgBox调用。|4021251|请务必向下滚动，查找PathLinks+-+Tame+App.Path+Under+Vista%2B上发布的最新版本|offset|length|4021252|请注意，示例项目在执行“首次提升”技巧时会跳过应用程序的运行。它只是在重新定位数据并符号链接到它之后，在Sub+Main中执行一个Exit+Sub。|4021253|entityMap|0|LINK|mutability|MUTABLE|url|http://www.vbforums.com/showthread.php?t=625359^0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|A|12|0|0|0^^$0|@$1|2|3|4|5|6|7|1P|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|1Q|8|@]|9|@]|A|$]]|$1|C|3|D|5|E|7|1R|8|@]|9|@]|A|$]]|$1|F|3|G|5|E|7|1S|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|1T|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|1U|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|1V|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|1W|8|@]|9|@]|A|$]]|$1|N|3|O|5|6|7|1X|8|@]|9|@]|A|$]]|$1|P|3|-4|5|6|7|1Y|8|@]|9|@]|A|$]]|$1|Q|3|R|5|E|7|1Z|8|@]|9|@]|A|$]]|$1|S|3|T|5|E|7|20|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|21|8|@]|9|@]|A|$]]|$1|V|3|W|5|6|7|22|8|@]|9|@]|A|$]]|$1|X|3|Y|5|6|7|23|8|@]|9|@]|A|$]]|$1|Z|3|-4|5|6|7|24|8|@]|9|@]|A|$]]|$1|10|3|11|5|6|7|25|8|@]|9|@]|A|$]]|$1|12|3|13|5|6|7|26|8|@]|9|@]|A|$]]|$1|14|3|15|5|6|7|27|8|@]|9|@]|A|$]]|$1|16|3|17|5|6|7|28|8|@]|9|@]|A|$]]|$1|18|3|-4|5|6|7|29|8|@]|9|@]|A|$]]|$1|19|3|1A|5|6|7|2A|8|@]|9|@]|A|$]]|$1|1B|3|1C|5|6|7|2B|8|@]|9|@$1D|2C|1E|2D|1|2E]]|A|$]]|$1|1F|3|1G|5|6|7|2F|8|@]|9|@]|A|$]]|$1|1H|3|-4|5|6|7|2G|8|@]|9|@]|A|$]]]|1I|$1J|$5|1K|1L|1M|A|$1N|1O]]]]

Well if we assume a couple of things:

<ul>
<li>This is only an issue for Vista or later.</li>
<li>Your data is in subfolders, under App.Path.</li>
</ul>

... I have a sort of workaround that might be used.

Note that I only use this trick when I have a bunch of old VB6 programs that were written to use data in folders beneath App.Path, sort of a quick and dirty hack to get a lot of programs working quickly. I almost always add or update the application manifest as well, mostly to prevent virtualization.

<hr>

The changes I make are:

<ul>
<li>Add a little code to Sub Main (inserting a Sub Main if the program doesn't already have one).</li>
<li>Add two Class modules (invoked by the new Sub Main code) to the project.</li>
</ul>

When the new program is deployed, on Vista or later the program needs to be run once as administrator. In the newest version of my add-in code the program will prompt the user to rerun it elevated if required, and when OKed it does so and self-terminates.

After the first run everything should be hunky-dory, running much as it did under Win2K, XP, etc.

<hr>

This startup code that requires elevation provides a list of the App.Path subfolders required to the PathLinks class.

Pathlinks creates a program folder under the Public special folder, then creates matching subfolders for the data under that. Next it moves any files and subfolders in these App.Path subfolders into the new locations. Finally it creates symlinks to the new folders back under App.Path.

If running under Windows prior to Vista, PathLinks merely creates any of the list of App.Path subfolders (under App.Path) that don't already exist (i.e. by installation).

From here on the program will find the files in the new location, without needing any changes to its use of App.Path at all.

<hr>

One of the two add-in Classes is cosmetic and you can remove it. It just lets the startup code invoke TaskDialog instead of using a MsgBox call.

Be sure to scroll down for the newest version posted at <a href="http://www.vbforums.com/showthread.php?t=625359" rel="nofollow">PathLinks - Tame App.Path Under Vista+</a>

Note that the sample project skips running the application when it does that "first time elevated" trick. It just does an Exit Sub in Sub Main after relocating data and symlinking to it.

blocks|key|4021281|text|一个有用的讨论可以在here找到|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|4021282|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/4273424/where-should-i-store-application-specific-settings^0|A|4|0|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@$A|M|B|N|1|O]]|C|$]]|$1|D|3|-4|5|6|7|P|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]]]

A useful discussion can be found <a href="https://stackoverflow.com/questions/4273424/where-should-i-store-application-specific-settings">here</a>

blocks|key|1530081|text|我不知道是否还有人(因为我还在寻找它)在搜索这个。但是我在这个页面上找到了一个很好的答案http://www.vbforums.com/showthread.php?564256-Classic-VB-Where-should-I-store-the-files-that-my-program-uses-creates|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1530082|我使用此代码来获取正确的文件夹路径。|1530083|'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|code-block|syntax|javascript|1530084|我在同一个模块中使用了它，就像在另一个函数中一样。|1530085|FileName+=+SpecialFolder(SpecialFolder_AppData)+&“\日志\”&+"log.log“|1530086|这将设置"C:\Users\username\AppData\Roaming\Log\log.log“=+FileName|1530087|亲切的问候|1530088|entityMap|0|LINK|mutability|MUTABLE|url|http://www.vbforums.com/showthread.php?564256-Classic-VB-Where-should-I-store-the-files-that-my-program-uses-creates^0|18|38|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|E|5|6|7|14|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|15|8|@]|9|@]|C|$I|J]]|$1|K|3|L|5|6|7|16|8|@]|9|@]|C|$]]|$1|M|3|N|5|6|7|17|8|@]|9|@]|C|$]]|$1|O|3|P|5|6|7|18|8|@]|9|@]|C|$]]|$1|Q|3|R|5|6|7|19|8|@]|9|@]|C|$]]|$1|S|3|-4|5|6|7|1A|8|@]|9|@]|C|$]]]|T|$U|$5|V|W|X|C|$Y|Z]]]]

I don't know if stil some one (else as I was still searching for it) searching for this.
but I found a good answer on this page
<a href="http://www.vbforums.com/showthread.php?564256-Classic-VB-Where-should-I-store-the-files-that-my-program-uses-creates" rel="nofollow noreferrer">http://www.vbforums.com/showthread.php?564256-Classic-VB-Where-should-I-store-the-files-that-my-program-uses-creates</a>

I used this code the get the correct folder path.

<pre><code>'this peace of code must be on the top of jour module in the declaration part.
Public Enum eSpecialFolders
 SpecialFolder_Documents = &amp;H5 'the Documents folder for the current Windows user
 SpecialFolder_Favorites = &amp;H6 'for the Favorites folder
 SpecialFolder_Videos = &amp;HD 'For the Video's folder
 SpecialFolder_Desktop = &amp;H10 'for the desktop folder
 SpecialFolder_AppData = &amp;H1A 'for the current Windows user, on any computer on the network [Windows 98 or later]
 SpecialFolder_LocalAppData = &amp;H1C 'for the current Windows user, on this computer only [Windows 2000 or later]
 SpecialFolder_CommonAppData = &amp;H23 'for all Windows users on this computer [Windows 2000 or later]
 SpecialFolder_Windows = &amp;H24 'for the windows folder
 SpecialFolder_System32 = &amp;H25 'For the windows system32 folder
 SpecialFolder_Pictures = &amp;H27 'for the picture folder
 SpecialFolder_User = &amp;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
</code></pre>

I Used it in the same module like this
in a other function.

FileName = SpecialFolder(SpecialFolder_AppData) &amp; "\Log\" &amp; "log.log"

this will set FileName = "C:\Users\username\AppData\Roaming\Log\log.log"

Kind Regards

I maintain a VB6 application that stores its data (access files) in a subfolder of the application folder. So, when the user installs the application to the default location of <code>C:\Program Files\MyApp</code> the data ends up in the Virtual Store. I have now been given the sweet task of converting the 1000 or so App.Path statements to a path to a Data folder that will not have any security issues. Can someone please help me out by pointing the way to some resources that will spoonfeed to me how to handle data in the <code>Users\&lt; Username&gt;\AppData\Local\</code> folder? 
Should I use the local AppData folder, or can I have the user choose a suitable location?

Moving a VB6's Data folder out of Program Files

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我维护了一个VB6应用程序，它将其数据(access文件)存储在应用程序文件夹的子文件夹中。因此，当用户将应用程序安装到C:\Program Files\MyApp的默认位置时，数据最终保存在Virtual Store中。现在，我被赋予了一项甜蜜的任务:将大约1000条App.Path语句转换为指向不会有任何安全问题的...

问将VB6的数据文件夹移出程序文件
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将VB6的数据文件夹移出程序文件EN