Ordner im lokalen Netzwerk freigeben ohne Schreibschutz

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Ordner im lokalen Netzwerk freigeben ohne Schreibschutz

    Hallo,
    ich möchte ein Verzeichnis zu bestimmten Zeiten auf meinem Rechner im lokalen Netzwerk freigeben. Hierfür habe ich folgenden Code gefunden:

    VB.NET-Quellcode

    1. If Programm.IstHostOnline = False Then
    3. Const IsFileShare As Integer = 0
    4. Const Max_Connections As Integer = 10
    5. Dim Share_Info As String() = {"C:\MBSERVER", "Host", CStr(IsFileShare), _
    6. CStr(Max_Connections), "Von PC01 bereitgestellte Daten"}
    7. Dim Win_Shares As ManagementClass = New ManagementClass("Win32_Share")
    8. Try
    9. Win_Shares.InvokeMethod("Create", Share_Info)
    10. Catch ex As System.Management.ManagementException
    11. MessageBox.Show(ex.ToString)
    12. Me.TS_UpdateService.Text = "Daten auf Host freigeben"
    13. Return
    14. Finally
    15. Win_Shares.Dispose()
    16. End Try
    17. MessageBox.Show(Share_Info(0) + " erfolgreich erstellt!")
    18. Me.TS_UpdateService.Text = "Daten auf Host sperren"
    19. Exit Sub
    21. End If

    Wie stelle ich es nun an, dass andere Rechner im Netzwerk die Daten bearbeiten können, sprich wie hebe ich den Schreibschutz auf?
    Gruß Markus

    Danke Dir für den Hinweis,
    dass mit dem Schreibschutz von Dateien habe ich schon gelesen. Da es sich um wirklich viele Dateien handelt, dachte ich, es gebe vielleicht eine Möglichkeit direkt bei der Freigabe des Verzeichnisses dies zu umgehen.
    Gruß Markus

    Habe die Attribute mit folgenden Code zurückgesetzt:

    VB.NET-Quellcode

    1. Public Function RemoveWriteProtection(ByVal sFile As String) As Boolean
    2. Dim bResult As Boolean = True
    4. If Not File.Exists(sFile) Then
    5. ' Falls Datei nicht existiert...
    6. bResult = False
    7. Else
    8. ' aktuell gesetzte Datei-Attribute ermitteln
    9. Dim oInfo As New FileInfo(sFile)
    10. With oInfo
    11. Try
    12. If CBool(.Attributes And FileAttributes.ReadOnly) Then
    13. ' Datei ist schreibgeschützt
    14. ' Jetzt Schreibschutz-Attribut entfernen
    15. .Attributes = .Attributes Xor FileAttributes.ReadOnly
    16. End If
    17. Catch
    18. ' Fehler beim Lesen/Setzen der Datei-Attribute
    19. bResult = False
    20. End Try
    21. End With
    22. End If
    23. Return bResult
    24. End Function


    Nun ist es so:
    Bei der Überprüfung der Attribute mit Eigenschaften, sind die Dateien nicht mehr schreibgeschützt, aber
    öffne ich eine Datenbank mit Accsess, erhalte ich den Hinweis, dass die Datenbank schreibgeschützt geöffnet wird.

    Petaod: Dein Vorschlag hilft mir leider auch nicht weiter

    Habe noch eine andere Variante getest:

    VB.NET-Quellcode

    1. Private Sub Schreibschutz_Aufheben(Verzeichnis As System.IO.DirectoryInfo)
    3. Dim Unterverzeichnis As IO.DirectoryInfo
    4. Dim Datei As IO.FileInfo
    7. For Each Datei In Verzeichnis.GetFiles()
    8. IO.File.SetAttributes(Datei.FullName, IO.FileAttributes.Normal)
    9. Next
    12. For Each Unterverzeichnis In Verzeichnis.GetDirectories()
    13. Schreibschutz_Aufheben(Unterverzeichnis)
    14. Next
    17. End Sub


    Hier erhalte ich die Fehlermeldung:
    Der Zugriff auf den Pfad "\\PC01\Host\DATA\Bild.mdb" wurde verweigert.
    Denke es liegt daran, dass es ein Netzwerkpfad ist und Windows 7 dies nicht zulässt.
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

Facebook
Telefonspende