在VB.Net中获取从SHGetKnownFolderPath返回的路径

Imports System.Runtime.InteropServices

Public Class Form1

    ' 声明SHGetKnownFolderPath函数
    <DllImport("shell32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function SHGetKnownFolderPath(ByVal rfid As Guid, ByVal dwFlags As Integer, ByVal hToken As IntPtr, ByRef ppszPath As IntPtr) As Integer
    End Function

    ' 定义KNOWNFOLDERID常量
    Private Shared ReadOnly FOLDERID_Documents As New Guid("FDD39AD0-238F-46AF-ADB4-6C85480369C7")

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 调用SHGetKnownFolderPath函数获取路径
        Dim pathPtr As IntPtr = IntPtr.Zero
        Dim result As Integer = SHGetKnownFolderPath(FOLDERID_Documents, 0, IntPtr.Zero, pathPtr)

        If result = 0 AndAlso pathPtr <> IntPtr.Zero Then
            ' 将路径指针转换为字符串
            Dim path As String = Marshal.PtrToStringAuto(pathPtr)

            ' 使用获取到的路径进行后续操作
            MessageBox.Show("Documents Folder Path: " & path)

            ' 释放路径指针
            Marshal.FreeCoTaskMem(pathPtr)
        Else
            ' 获取路径失败
            MessageBox.Show("Failed to get Documents Folder Path")
        End If
    End Sub

End Class