如何通过本机文件夹路径获得共享文件的路径？

Question

如何通过"本机文件夹路径"获得"共享文件的路径"？通过"共享文件路径"又怎么样获得"本机文件夹路径"呢？

Answer 1

在注册表中，如HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\lanmanserver\Shares，不过很难解决你的问题，我没有更好的办法

Answer 2

看是不是这个意思：
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetComputer() As String
Dim Length As Long, Name As String
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
GetComputer = Left(Name, Length)
End FunctionPrivate Sub Form_Load()
Show
Me.WindowState = 2
Dim s As String
Set fs = GetObject("WinNT://" & LCase(GetComputer) & "/LanmanServer,FileService")
For Each sh In fs
 s = s & sh.Name & Space(3) & sh.Path & vbCrLf
Next
 Print sEnd Sub
随便共享一个文件夹   可以看到效果~