找到AppData目录:
Dim appData As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
Run Code Online (Sandbox Code Playgroud)
找到文档快捷方式并在资源管理器中打开它:
For Each file As String In Directory.GetFiles(appData, "Documents.library-ms", SearchOption.AllDirectories)
Process.Start(file)
Next
Run Code Online (Sandbox Code Playgroud)