如何在VB.NET中仅提供固定子路径获取文件完整路径？

针对你遇到的SharePoint同步文件夹路径随PC变化、仅固定子路径的场景，提供以下几种VB.NET实现方案：

方案1：手动配置+本地存储（最稳妥） #

• 首次运行应用时，让用户选择SharePoint同步的根文件夹（比如示例中的C:\Users\main user）
• 将该路径保存到应用配置文件（比如app.config的自定义项，或本地JSON/XML文件）
• 后续启动时读取配置的根路径，拼接固定子路径得到完整地址

VB.NET代码示例：

Imports System.Configuration
Imports System.IO

' 读取配置的根路径（需先在app.config中添加SharePointRootPath配置项）
Dim rootPath As String = ConfigurationManager.AppSettings("SharePointRootPath")
' 用Path.Combine自动处理路径分隔符，避免拼接错误
Dim fullFilePath As String = Path.Combine(rootPath, "Templates\Test Assembly\Test.txt")

方案2：自动检测OneDrive/SharePoint同步路径 #

如果想省略手动配置步骤，可以通过注册表查询OneDrive for Business的同步路径：

Imports Microsoft.Win32
Imports System.IO

Function GetSharePointSyncRoot() As String
    ' 注册表路径对应OneDrive商业版同步目录，版本不同可能略有调整
    Dim regKeyPath As String = "HKEY_CURRENT_USER\Software\Microsoft\OneDrive\Accounts\Business1"
    Dim syncFolderPath As Object = Registry.GetValue(regKeyPath, "UserFolder", Nothing)
    
    Return syncFolderPath?.ToString() ?? String.Empty
End Function

' 使用示例
Dim rootPath As String = GetSharePointSyncRoot()
If Not String.IsNullOrEmpty(rootPath) Then
    Dim fullFilePath As String = Path.Combine(rootPath, "Templates\Test Assembly\Test.txt")
    ' 这里添加文件检索逻辑
Else
    ' 检测失败时，提示用户手动选择根路径
End If

方案3：利用Windows Known Folders API（Win10/11适用） #

针对较新的Windows系统，可以通过官方Known Folders API获取OneDrive同步路径，需添加对Windows.Storage的引用：

Imports Windows.Storage
Imports System.IO

Async Function GetOneDriveRootAsync() As Task(Of String)
    Dim oneDriveFolder As StorageFolder = Await KnownFolders.GetFolderAsync(KnownFolderId.OneDrive)
    Return oneDriveFolder.Path
End Function

' 调用示例（需在异步方法内执行）
Dim rootPath As String = Await GetOneDriveRootAsync()
Dim fullFilePath As String = Path.Combine(rootPath, "Templates\Test Assembly\Test.txt")

内容的提问来源于stack exchange，提问作者Omar Mokhtar