VB.NET code zu Konvertieren gemeinsamen lokalen Pfad um einen UNC-Pfad

Wir haben windows 2003 server-Pc namens pc2, bei der die lokalen Laufwerke freigegeben sind, mit unterschiedlichen Namen. Zum Beispiel lokale Laufwerk E: ist shared mit dem Namen 'datapath', so dass alle Benutzer in network Zugriff auf das Laufwerk mit Netzwerk-Pfad '\\pc2\datapath\'. Wir brauchen VB.net code zu konvertieren lokale Pfad zum freigegebenen UNC path ich.e, wenn wir input "E:\netuse'code muss wieder '\\pc2\datapath\netuse'.

Gibt es eine Möglichkeit, dies zu tun in VB.net ?

BEARBEITEN:
Laufwerk E ist nicht belegt,es ist nur geteilt

InformationsquelleAutor IT researcher | 2013-04-24

  1. 2

    Gerade eine kleine app, die scheint zu funktionieren.

    Dauert es ein Textfeld mit einem nicht-unc-Wert und wandelt ihn,dann setzt ein label

    Denken Sie daran, die folgenden namespaces wenn Sie nicht bereits haben;

    Imports System.Text
Imports System.IO

    Dies ist die Methode, die macht die ganze Arbeit;

    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

    Erklären, dass diese Funktion;

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

    Rufen Sie den code von einer Schaltfläche klicken;

      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

    Hoffe, das hilft.

    Ich denke, muss das Laufwerk zugeordnet sein, verwenden Sie obigen code.Wie ich bereits erwähnt unsere Fahrt nur freigegeben nicht belegt
    Hast du auch versucht den obigen code?
    ja habe gerade versucht..nicht verwenden, lokales Laufwerk verwenden,muss ein zugeordnetes Laufwerk des sql server-Fehler kam
    Ich bekam diese Meldung, wenn ich versehentlich gesendet "A:\" da mein Laufwerk anstelle von "A:\" (ich war die Generierung der Zeichenfolge, die im code) - wenn ich der festen Zeichenfolge, die verwirrende Referenz zu sql-server ging

    InformationsquelleAutor Cubsoft

  2. -1

    Dieser code war sehr gut 

            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
    Code erzeugt unbehandelten Fehler.

    InformationsquelleAutor IT researcher

Schreibe einen Kommentar