Question

如何使用'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 转到当前用户的文件夹？

Answer 1

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

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

Answer 2

在我的Windows 8.1上，我无法访问“本地设置”文件夹。它受到了保护。至于获得正确的文件夹路径，我认为答案已在上面发布。只需将自定义文件夹路径附加到由UserProfile DotNet返回的Environment文件夹路径。

类似的东西：

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

Answer 3

获取Local AppData文件夹：

Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)

然后将它与你的＆＃34; TEST＆＃34;连接起来。使用Path.Combine方法的文件夹请参阅SpecialFolders和Combine msdn页。

Answer 4

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

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

VB.NET |获取当前用户个人资料文件

4 个答案: