VB.NET代碼轉換共享的UNC路徑

Question

本地路徑我們有windows 2003服務器PC名爲PC2在本地驅動器與不同的名稱共享。例如本地驅動器E與名稱「數據通路」共享，以便在network訪問所有用戶驅動器使用網絡路徑「\\pc2\datapath\'。我們必須VB.net代碼到本地路徑轉換爲共享UNC path即如果我們輸入「E：\ netuse」，代碼必須返回'\\pc2\datapath\netuse'。

有沒有辦法在VB.net做到這一點？

編輯： 驅動器E沒有被映射，它只是共享

Answer 1

此代碼的工作非常出色

 Dim SharePath As String = "e:\Netuse" 
     Dim SplitPath() As String = Split(SharePath, "\") 
     Dim CurrentPath As String = String.Empty 
     Dim ShareName As String = String.Empty 
     Dim CurrentFolderIndex As Integer 
     Dim UNCPath As String = String.Empty 

     For CurrentFolderIndex = 0 To SplitPath.GetUpperBound(0) 
      If CurrentPath = String.Empty Then 
       CurrentPath = String.Concat(SplitPath(CurrentFolderIndex), "\\") 
      Else 
       CurrentPath += String.Concat(SplitPath(CurrentFolderIndex), "\\") 
      End If 
      ShareName = GetShareName(CurrentPath) 
      If ShareName <> String.Empty Then 
       CurrentFolderIndex += 1 
       Exit For 
      End If 
     Next 

     UNCPath = String.Concat("\\", My.Computer.Name, "\", ShareName) 

     For SubPathIndex As Integer = CurrentFolderIndex To SplitPath.GetUpperBound(0) 
      UNCPath = String.Concat(UNCPath, "\", SplitPath(SubPathIndex)) 
     Next 

     Console.WriteLine(UNCPath) 



    Public Function GetShareName(ByVal FolderPath As String) As String 

     Dim Searcher As New ManagementObjectSearcher(String.Concat("select * from win32_share WHERE Path = '", FolderPath, "'")) 
     Dim ShareName As String = String.Empty 

     For Each Share As ManagementObject In Searcher.Get() 
      ShareName = Share("Name").ToString 
     Next 

     Return ShareName 

    End Function 

Answer 2

剛剛創建了一個小的應用程序，這似乎工作。

這需要一個文本框與非UNC值，並將其轉換，則設置了一個標籤

請記住，包括下面的命名空間，如果你還沒有準備好;

Imports System.Text 
Imports System.IO 

這是做所有工作的方法;

Private Function GetUNCPath(ByVal sFilePath As String) As String 

Dim allDrives() As DriveInfo = DriveInfo.GetDrives() 
Dim d As DriveInfo 
Dim DriveType, Ctr As Integer 
Dim DriveLtr, UNCName As String 
Dim StrBldr As New StringBuilder 

If sFilePath.StartsWith("\\") Then Return sFilePath 

UNCName = Space(160) 
GetUNCPath = "" 

DriveLtr = sFilePath.Substring(0, 3) 

For Each d In allDrives 
    If d.Name = DriveLtr Then 
    DriveType = d.DriveType 
    Exit For 
    End If 
Next 

If DriveType = 4 Then 

    Ctr = WNetGetConnection(sFilePath.Substring(0, 2), UNCName, UNCName.Length) 

    If Ctr = 0 Then 
    UNCName = UNCName.Trim 
    For Ctr = 0 To UNCName.Length - 1 
     Dim SingleChar As Char = UNCName(Ctr) 
     Dim asciiValue As Integer = Asc(SingleChar) 
     If asciiValue > 0 Then 
     StrBldr.Append(SingleChar) 
     Else 
     Exit For 
     End If 
    Next 
    StrBldr.Append(sFilePath.Substring(2)) 
    GetUNCPath = StrBldr.ToString 
    Else 
    MsgBox("Cannot Retrieve UNC path" & vbCrLf & "Must Use Mapped Drive of SQLServer", MsgBoxStyle.Critical) 
    End If 
Else 
    MsgBox("Cannot Use Local Drive" & vbCrLf & "Must Use Mapped Drive of SQLServer", MsgBoxStyle.Critical) 
End If 

End Function 

聲明此功能;

Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, _ 
     ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer) As Integer 

從按鈕點擊調用代碼;

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Dim RealFileName As String = GetUNCPath(txtFileName.Text) 
    lblUNC.Text = RealFileName 
    End Sub 

希望這會有所幫助。