mehrere Verzeichnisse anlegen - Pfad beginnt mit UNC - Problem Directory.Exists

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    mehrere Verzeichnisse anlegen - Pfad beginnt mit UNC - Problem Directory.Exists

    Moin!

    ich möchte mehre Verzeichnisse anlegen und habe mir dafür eine Funktion geschrieben:

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Verzeichnis anlegen mit fehlenden Unterverzeichnissen
    3. ''' </summary>
    4. ''' <param name="Pfad">Pfad</param>
    5. ''' <param name="Log">optional Log-Klasse (default=nothing)</param>
    6. ''' <returns>-1 ... kein Pfad angegeben / 0 ... Fehler / 1 ... erfolgreich</returns>
    7. ''' <remarks></remarks>
    8. Public Function MakeDirectories(ByVal Pfad As String, Optional ByRef Log As EBL.Service.Log = Nothing) As Integer
    9. ' ------ http://ma22-wiki-001/eblwiki/index.php?title=FolderAndFile_(Klasse_von_EBL.Service)#Verzeichnis-Struktur_anlegen ------
    10. Dim Result As Integer = 0
    11. Dim TestPfad As String = "[undef]"
    12. If Pfad.Length = 0 Then
    13. Return -1
    14. End If
    16. Try
    17. If System.IO.Directory.Exists(Pfad) = True Then
    18. Return 1
    19. End If
    21. Dim Folder As String() = Pfad.Split({"\"}, StringSplitOptions.RemoveEmptyEntries)
    23. Dim UNC_Prefix As String = ""
    24. If Pfad.Length > 2 Then
    25. If Pfad.Substring(0, 2) = "\\" Then UNC_Prefix = "\\"
    26. End If
    28. TestPfad = UNC_Prefix & Folder(0)
    30. If System.IO.Directory.Exists(TestPfad) = False Then
    31. Dim Msg As String = "Ungültiges Startlaufwerk:= " & TestPfad
    32. If Pfad.Length > 2 Then Msg += " (mögliches Problem mit UNC-Pfad!)"
    33. If IsNothing(Log) Then
    34. _TryReport.Show(Msg)
    35. Else
    36. Log.WriteAsError(Msg)
    37. End If
    39. Return 0
    40. End If
    42. For i As Integer = 1 To Folder.Count - 1
    43. TestPfad += "\" & Folder(i)
    44. If System.IO.Directory.Exists(TestPfad) = False Then
    45. Try
    46. System.IO.Directory.CreateDirectory(TestPfad)
    47. Catch ex As Exception
    48. Dim Msg As String = "Fehler beim Anlegen eines Verzeichnisses" & "TestPfad:= " & TestPfad
    49. If Not IsNothing(Log) Then
    50. _TryReport.Show(Msg, ex.ToString)
    51. Else
    52. Log.WriteAsError(Msg & vbCrLf & ex.ToString)
    53. End If
    54. Exit For
    55. End Try
    56. End If
    57. Next
    59. 'abschliesssende Prüfung
    60. If System.IO.Directory.Exists(Pfad) = True Then Result = 1
    62. Catch ex As Exception
    63. Dim Msg As String = "unvorhergesehener Fehler in der Funktion EBL.Service > FolderAndFile > MakeDirectories" & vbCrLf &
    64. "Pfad:= " & Pfad & vbCrLf & _
    65. "TestPfad:= " & TestPfad
    66. If Not IsNothing(Log) Then
    67. _TryReport.Show(Msg, ex.ToString)
    68. Else
    69. Log.WriteAsError(Msg & vbCrLf & ex.ToString)
    70. End If
    71. End Try
    72. Return Result
    73. End Function
    75. End Class


    Das Problem beginnt in Zeile 30, wenn der erste Teil des Pfades mit \\srv105 beginnt.

    Directory.Exists sagt dann, dass dieses Laufwerk nicht da ist - stimmt nicht. Den Server gibt es.

    Hat einer von Euch eine "intelligentere" Lösung für mich.

    Es kann nun natürlich auch sein, dass die ersten Ebenen für den Bearbeiter nicht verfügbar sind - dann aber wieder ab Ebene x....

    Bin gespannt - mehr ist mir bisher nicht eingefallen.

    Gruß Jan

    @jan99 Wenn Du mit UNC-Pfaden arbeitest, teste mal die API-Funktion CreateFile().
    msdn.microsoft.com/en-us/libra…op/aa363858(v=vs.85).aspx

    C#-Quellcode

    1. [DllImport("kernel32.dll", CharSet = CharSet.Auto, SetLastError = true)]
    2. private static extern IntPtr CreateFile(
    3. [MarshalAs(UnmanagedType.LPTStr)] string filename,
    4. [MarshalAs(UnmanagedType.U4)] uint access,
    5. [MarshalAs(UnmanagedType.U4)] FileShare share,
    6. IntPtr securityAttributes, // optional SECURITY_ATTRIBUTES struct or IntPtr.Zero
    7. [MarshalAs(UnmanagedType.U4)] FileMode creationDisposition,
    8. [MarshalAs(UnmanagedType.U4)] uint flagsAndAttributes,
    9. IntPtr templateFile);
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende