如何通过编程获取包含指定本地文件的首个Windows共享名

核心逻辑 #

从目标文件所在目录开始，逐层向上遍历父目录，检查每个目录是否为Windows共享目录；找到第一个匹配的共享目录后，结合本地计算机名、共享名以及文件相对于该共享目录的路径，生成网络可访问的路径字符串。

方法1：PowerShell实现 #

function Get-FirstSharePath {
    param([string]$LocalFilePath)
    $file = Get-Item $LocalFilePath -ErrorAction Stop
    $currentDir = $file.Directory
    $computerName = $env:COMPUTERNAME

    while ($currentDir -ne $null) {
        # 匹配当前目录对应的共享
        $share = Get-SmbShare | Where-Object { $_.Path -eq $currentDir.FullName }
        if ($share) {
            # 计算文件相对于共享目录的路径
            $relativePath = $file.FullName.Substring($currentDir.FullName.Length + 1)
            return "\\$computerName\$($share.Name)\$relativePath"
        }
        # 向上遍历父目录
        $currentDir = $currentDir.Parent
    }
    # 未找到共享时返回空
    return $null
}

# 使用示例
Get-FirstSharePath -LocalFilePath "C:\Data\Docs\Report.pdf"

说明：通过Get-SmbShare枚举本地所有共享，逐层级匹配文件的父目录路径，找到首个共享后拼接网络访问路径。

方法2：VBA结合WMI实现 #

Function GetFirstShareName(ByVal localFilePath As String) As String
    Dim fso As Object
    Dim fileObj As Object
    Dim currentFolder As Object
    Dim wmiService As Object
    Dim shares As Object
    Dim share As Object
    Dim computerName As String
    Dim relativePath As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fileObj = fso.GetFile(localFilePath)
    Set currentFolder = fileObj.ParentFolder
    computerName = Environ("COMPUTERNAME")
    
    ' 连接本地WMI服务
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    
    Do While Not currentFolder Is Nothing
        ' 转义路径中的反斜杠，适配WMI查询语法
        Dim queryPath As String
        queryPath = Replace(currentFolder.Path, "\", "\\")
        Set shares = wmiService.ExecQuery( _
            "SELECT * FROM Win32_Share WHERE Path = '" & queryPath & "' AND Type = 0")
        
        If shares.Count > 0 Then
            For Each share In shares
                ' 提取文件相对共享目录的路径
                relativePath = Mid(fileObj.Path, Len(currentFolder.Path) + 2)
                GetFirstShareName = "\\" & computerName & "\" & share.Name & "\" & relativePath
                Exit Function
            Next share
        End If
        
        ' 向上移动到父文件夹
        Set currentFolder = currentFolder.ParentFolder
    Loop
    
    ' 未找到共享时返回空
    GetFirstShareName = ""
End Function

' 使用示例
Sub Test()
    MsgBox GetFirstShareName("C:\Data\Docs\Report.pdf")
End Sub

说明：通过FileSystemObject处理本地路径，WMI查询Win32_Share类（Type=0限定为文件夹共享），逐层级匹配父目录，生成网络访问路径。

方法3：CMD结合VBS脚本 #

VBS脚本（保存为GetFirstShare.vbs） #

Set fso = CreateObject("Scripting.FileSystemObject")
localFilePath = WScript.Arguments(0)
Set fileObj = fso.GetFile(localFilePath)
Set currentFolder = fileObj.ParentFolder
computerName = CreateObject("WScript.Shell").Environment("PROCESS")("COMPUTERNAME")

Set wmiService = GetObject("winmgmts:\\.\root\cimv2")

Do While Not currentFolder Is Nothing
    queryPath = Replace(currentFolder.Path, "\", "\\")
    Set shares = wmiService.ExecQuery("SELECT * FROM Win32_Share WHERE Path = '" & queryPath & "' AND Type = 0")
    If shares.Count > 0 Then
        For Each share In shares
            relativePath = Mid(fileObj.Path, Len(currentFolder.Path) + 2)
            WScript.Echo "\\" & computerName & "\" & share.Name & "\" & relativePath
            WScript.Quit
        Next
    End If
    Set currentFolder = currentFolder.ParentFolder
Loop

WScript.Echo "No shared folder found for the file."

CMD调用方式 #

cscript //nologo GetFirstShare.vbs "C:\Data\Docs\Report.pdf"

关键注意事项 #

• 权限要求：执行脚本的用户需要具备读取本地共享信息的权限（本地普通用户默认拥有该权限）。
• 路径匹配：Windows文件系统不区分大小写，但WMI查询的路径匹配是严格格式匹配，使用FileSystemObject获取的路径可确保与共享路径格式一致。

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