VB.NET |获取当前用户配置文件文件夹答案

【问题标题】：VB.NET | Get current user profile folderVB.NET |获取当前用户配置文件文件夹
【发布时间】：2013-08-14 11:24:03
【问题描述】：

如何使用'path' 转到用户的当前个人资料？

例如，我有这样的代码：

        Dim fso, fldr
    fso = CreateObject("Scripting.FilesystemObject")

    fldr = fso.GetFolder("C:\Documents and Settings\%UserProfile%\Local Settings\TEST")

    'delete subfolders
    For Each subf In fldr.SubFolders

        subf.Delete(True)

    Next

    'delete subfiles
    For Each fsofile In fldr.Files

        fsofile.Delete(True)

    Next

我试过这种方式，路径未知。

我怎样才能使C:\Documents and Settings\???\Local Settings\TEST 去当前用户的文件夹？

【问题讨论】：

stackoverflow.com/questions/13076811/…

标签： vb.net

【解决方案1】：

使用 'userprofile' 环境变量...

MsgBox(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))

【讨论】：

你应该继续！如果您不提供信息，您希望如何获得帮助...

【解决方案2】：

在我的 Windows 8.1 上，我无法访问本地设置文件夹。它的权利受到保护。就获得正确的文件夹路径而言，我认为答案已经在上面发布了。只需将您的自定义文件夹路径附加到 DotNet 的 Environment 返回的 UserProfile 文件夹路径即可。

类似：

Environment.GetFolderPath(Environment.SpecialFolder.UserProfile) & "\Local Settings\TEST"

【讨论】：

【解决方案3】：

获取本地 AppData 文件夹：

Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)

然后使用Path.Combine 方法将其与您的“TEST”文件夹连接起来。
请参阅 SpecialFolders 和 Combine msdn 页面。

【讨论】：

【解决方案4】：

这对我有用，使用 VB6.0 Sp6

    Dim myDocuPath As String
    myDocuPath = Environ$("USERPROFILE") & "\My Documents"

【讨论】：

为什么会这样？另外，你能在编辑器中格式化你的代码，让它看起来像代码吗？
对不起那个格式的问题，我在那个代码之前用4个空格更正了它，再试一次