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

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))