Normalen systempfad überprüfen auf UNC

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

    Normalen systempfad überprüfen auf UNC

    Guten morgen :)


    ich habe folgendes Problem ich bekomme einen Normalen Pfad angegeben per drag&drop von einem xbeliebiegen ordner

    z.b. C:\Programme\VB-Paradise\

    nun möchte ich überprüfen ob dieses Verzeichniss freigegeben ist im netzwerk und wie der UNC Pfad Lauten würde für diesenpfad.

    kann mir jemand sagen wie ich des angehen kann? Habt ihr mir da evtl. einen leichten und effektiven lösungsweg?

    danke im vorraus :)

    lg

    Ah da hab ich wohl schneller geschrieben als ich gelesen habe :S

    ich schreibs nochmal neu :D

    Spoiler anzeigen
    Hier zwei Möglichkeiten (Nur Windows Pfadangaben):

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim pfad As String = "c:\test\"
    3. Dim pfad2 As String = "\\test\"
    5. MsgBox(IsUNC(pfad).ToString) 'False
    6. MsgBox(IsUNC(pfad2).ToString) 'True
    7. MsgBox(IsNotUNC(pfad).ToString) 'True
    8. MsgBox(IsNotUNC(pfad2).ToString) 'False
    9. End Sub
    11. Public Function IsUNC(ByVal Path As String) As Boolean
    12. If Path.StartsWith("\\") Then
    13. Return True
    14. Else
    15. Return False
    16. End If
    17. End Function
    19. Public Function IsNotUNC(ByVal Path As String) As Boolean
    20. If Path.Length >= 3 AndAlso Char.IsLetter(Path(0)) AndAlso String.Format("{0}{1}", Path(1), Path(2)) = ":\" Then
    21. Return True
    22. Else
    23. Return False
    24. End If
    25. End Function
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    So, jetzt aber das richtige.

    Wichtig: Es muss ein Verweis auf System.Management gesetzt werden.

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim SuchPfad As String = "c:\Test\"
    3. For Each pfad As Share In GetUNCFromPath(SuchPfad)
    4. MsgBox(pfad.UNCPath)
    5. Next
    6. End Sub
    8. ''' <summary>
    9. ''' Gibt Alle Freigaben mit dem entsprechenden Pfad zurück
    10. ''' </summary>
    11. ''' <param name="Path">Der Pfad nach dem gesucht wird</param>
    12. ''' <param name="ExactPath">Gibt an ob nach dem genauen Pfad gesucht wird</param>
    13. ''' <returns>Eine List(of Share) mit allen gefundenen Freigabenamen</returns>
    14. ''' <remarks></remarks>
    15. Public Function GetUNCFromPath(ByVal Path As String, Optional ExactPath As Boolean = True) As List(Of Share)
    16. Dim RetVal As New List(Of Share)
    17. Dim objClass As Management.ManagementClass = New Management.ManagementClass("\\localhost\root\cimv2:Win32_Share")
    18. For Each objShare As Management.ManagementObject In objClass.GetInstances()
    19. If (ExactPath AndAlso objShare.Properties("Path").Value.ToString.ToLower = Path.ToLower) OrElse (Not ExactPath AndAlso objShare.Properties("Path").Value.ToString.ToLower.Contains(Path.ToLower)) Then
    20. RetVal.Add(New Share With {.Name = objShare.Properties("Name").Value.ToString, .UNCPath = String.Format("\\{0}\{1}\", Environment.MachineName, objShare.Properties("Name").Value.ToString), .Path = Path})
    21. End If
    22. Next
    23. Return RetVal
    24. End Function
    26. Public Class Share
    27. Private _Name As String = String.Empty
    28. Private _UNCPath As String = String.Empty
    29. Private _Path As String = String.Empty
    30. Public Property Name As String
    31. Get
    32. Return _Name
    33. End Get
    34. Set(value As String)
    35. _Name = value
    36. End Set
    37. End Property
    38. Public Property UNCPath As String
    39. Get
    40. Return _UNCPath
    41. End Get
    42. Set(value As String)
    43. _UNCPath = value
    44. End Set
    45. End Property
    46. Public Property Path As String
    47. Get
    48. Return _Path
    49. End Get
    50. Set(value As String)
    51. _Path = value
    52. End Set
    53. End Property
    54. End Class
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BiedermannS“ ()

    Hi danke für die antworten.

    Der motzt bei der "Share Classe" bei mir rum


    Fehler 22 Eine Eigenschaft ohne einen ReadOnly- oder WriteOnly-Bezeichner muss ein "Get" und ein "Set" haben.
    Fehler 23 Eine Anweisung kann nicht innerhalb eines Eigenschaftentexts verwendet werden. Das Ende der Eigenschaft wird angenommen.
    Fehler 24 Eine Anweisung kann nicht innerhalb eines Eigenschaftentexts verwendet werden. Das Ende der Eigenschaft wird angenommen.
    Fehler 25 Eigenschaft ohne "End Property".

    lg

    Müsste eigentlich auch hinhauen:

    VB.NET-Quellcode

    1. Sub Main()
    2. Dim SuchPfad As String = "C:\Test"
    3. For Each pfad As Share In GetUNCFromPath(False, SuchPfad)
    4. MsgBox(pfad.UNCPath & vbCrLf & "RootFolder: " & pfad.IsRoot.ToString)
    5. Next
    6. End Sub
    8. Public Function GetUNCFromPath(ExactPath As Boolean, ByVal ParamArray Paths() As String) As List(Of Share)
    9. Dim RetVal As New List(Of Share)
    10. Dim objClass As Management.ManagementClass = New Management.ManagementClass("\\localhost\root\cimv2:Win32_Share")
    11. Dim SharePath As String = String.Empty
    12. Dim ShareName As String = String.Empty
    13. For Each objShare As Management.ManagementObject In objClass.GetInstances()
    14. SharePath = objShare.Properties("Path").Value.ToString
    15. ShareName = objShare.Properties("Name").Value.ToString
    16. If Not String.IsNullOrEmpty(SharePath) AndAlso Not ShareName.Contains("$") Then
    17. For Each path In Paths
    18. If (ExactPath AndAlso SharePath.ToLower = path.ToLower) OrElse (Not ExactPath AndAlso SharePath.ToLower.Contains(path.ToLower)) Then
    19. RetVal.Add(New Share With {.Name = ShareName, .UNCPath = String.Format("\\{0}\{1}\", Environment.MachineName, ShareName), .Path = path, .IsRoot = True})
    20. ElseIf (ExactPath AndAlso path.ToLower.StartsWith(SharePath.ToLower)) OrElse (Not ExactPath AndAlso path.ToLower.Contains(SharePath.ToLower)) Then
    21. RetVal.Add(New Share With {.Name = ShareName, .UNCPath = String.Format("\\{0}\{1}\{2}", Environment.MachineName, ShareName, path.Replace(SharePath, "")), .Path = path, .IsRoot = False})
    22. End If
    23. Next
    24. End If
    25. Next
    26. Return RetVal
    27. End Function
    29. Public Class Share
    30. Private _Name As String = String.Empty
    31. Private _UNCPath As String = String.Empty
    32. Private _Path As String = String.Empty
    33. Private _IsRoot As Boolean
    34. Public Property IsRoot As Boolean
    35. Get
    36. Return _IsRoot
    37. End Get
    38. Set(value As Boolean)
    39. _IsRoot = value
    40. End Set
    41. End Property
    42. Public Property Name As String
    43. Get
    44. Return _Name
    45. End Get
    46. Set(value As String)
    47. _Name = value
    48. End Set
    49. End Property
    50. Public Property UNCPath As String
    51. Get
    52. Return _UNCPath
    53. End Get
    54. Set(value As String)
    55. _UNCPath = value
    56. End Set
    57. End Property
    58. Public Property Path As String
    59. Get
    60. Return _Path
    61. End Get
    62. Set(value As String)
    63. _Path = value
    64. End Set
    65. End Property
    66. End Class
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    funktioniert fast perfekt der code ich suche nur grad die stelle wo du dem unterverzeichnis das "\" gibst weil ich kriege dann meine freigabe mit "\\" im unterverzeichniss ansonsten 1a perfekt einfachsuper spitze :D danke!

    VB.NET-Quellcode

    1. Public Function GetUNCFromPath(ExactPath As Boolean, ByVal ParamArray Paths() As String) As List(Of Share)
    2. Dim RetVal As New List(Of Share)
    3. Dim objClass As Management.ManagementClass = New Management.ManagementClass("\\localhost\root\cimv2:Win32_Share")
    4. Dim SharePath As String = String.Empty
    5. Dim ShareName As String = String.Empty
    6. For Each objShare As Management.ManagementObject In objClass.GetInstances()
    7. SharePath = objShare.Properties("Path").Value.ToString
    8. ShareName = objShare.Properties("Name").Value.ToString
    9. If Not String.IsNullOrEmpty(SharePath) AndAlso Not ShareName.Contains("$") Then
    10. For Each path In Paths
    11. If (ExactPath AndAlso SharePath.ToLower = path.ToLower) OrElse (Not ExactPath AndAlso SharePath.ToLower.Contains(path.ToLower)) Then
    12. RetVal.Add(New Share With {.Name = ShareName, .UNCPath = String.Format("\\{0}\{1}\", Environment.MachineName, ShareName), .Path = path, .IsRoot = True})
    13. ElseIf (ExactPath AndAlso path.ToLower.StartsWith(SharePath.ToLower)) OrElse (Not ExactPath AndAlso path.ToLower.Contains(SharePath.ToLower)) Then
    14. 'hier war der Fehler
    15. RetVal.Add(New Share With {.Name = ShareName, .UNCPath = String.Format("\\{0}\{1}{2}", Environment.MachineName, ShareName, path.Replace(SharePath, "")), .Path = path, .IsRoot = False})
    16. End If
    17. Next
    18. End If
    19. Next
    20. Return RetVal
    21. End Function
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

Facebook
Telefonspende