Dateischreibschutz setzen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von lris08.

    Dateischreibschutz setzen

    Hi,

    bin gerade am Fehler ausmerzen...

    Mit diesem Code wird eine Datei kopiert und anschließend soll ein Schreibschutz gesetzt werden.

    Das funktioniert aber leider noch nicht und ich komm einfach nicht dahinter warum es nicht gunzen will...

    VB.NET-Quellcode

    1. ' hier wird die Datei verschoben ------------------------------------------------------------------------------------------------------
    2. My.Computer.FileSystem.CopyFile(F_Full, Datenbankpfad & "\FILES_" & Datenbankname & "\FILES\" & DokumentenID & F_Exte, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
    4. Dim sFile As String = Datenbankpfad & "\FILES_" & Datenbankname & "\FILES\" & DokumentenID & F_Exte
    6. ' aktuell gesetzte Datei-Attribute ermitteln
    7. If Not File.Exists(sFile) Then
    8. ' Falls Datei nicht existiert...
    9. MsgBox("Datei für Änderung Schreibschutz nicht gefunden")
    11. Else
    12. ' aktuell gesetzte Datei-Attribute ermitteln
    13. Dim oInfo As New FileInfo(sFile)
    14. With oInfo
    15. Try
    16. If .Attributes And Not FileAttributes.ReadOnly Then
    18. .Attributes = .Attributes Or FileAttributes.ReadOnly
    19. End If
    20. Catch
    21. ' Fehler beim Lesen/Setzen der Datei-Attribute
    22. MsgBox("Fehler bei der Verarbeitung. Setzen des Schreibschutzes nicht erfolgt!")
    23. End Try
    24. End With
    25. End If


    Das komische daran ist, wenn ich unter Windows Dateiexplorer die Datei über Eigenschaften überprüft, ist auch kein Hacken im Schreibschutz drinnen, dass Feld ist ledeglich blau unterlegt und hinter dem Kästchen steht Schreibschutzu (betrifft nur Dateien im Ordner)

    Hää ?

    Schnalls einfach grad gar ned...

    Alex

Facebook
Telefonspende