Find the AppData directory:
Dim appData As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
Find the documents shortcut and open it in explorer:
For Each file As String In Directory.GetFiles(appData, "Documents.library-ms", SearchOption.AllDirectories)
Process.Start(file)
Next
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…