Dateien/Ordner mit Rechten kopieren

Question

Hallo,

ich bin gerade dabei ein keines Tool zu programmieren, welches einen bestimmten Ordner mit Dateien in ein gewähltes Verzeichnis kopieren soll. Des klappt auch ohne Probleme, aber die Security Einstellungen und auch die Owner-Informationen werden nicht kopiert und zurückgesetzt (vererbt). Durch ein paar Versuche konnte ich meine "eigene Rechte" über SystemAccessRights/Rule/Control vergeben.

- Gibt es einen leichteren Weg wie z.B: in Xcopy /o (copies file ownership and ACL informations) ?

- Mit einer Checkbox sollten bestimmte Ordner (im Verzeichnis) einen anderen Icon bekommen. Ist dies möglich? Habe bis jetzt nichts gefunden.

Hoffe ihr könnt mir helfen. Gruß

Answer 1

Hallo,

ich bin gerade dabei ein keines Tool zu programmieren, welches einen bestimmten Ordner mit Dateien in ein gewähltes Verzeichnis kopieren soll. Des klappt auch ohne Probleme, aber die Security Einstellungen und auch die Owner-Informationen werden nicht kopiert und zurückgesetzt (vererbt). Durch ein paar Versuche konnte ich meine "eigene Rechte" über SystemAccessRights/Rule/Control vergeben.

- Gibt es einen leichteren Weg wie z.B: in Xcopy /o (copies file ownership and ACL informations) ?

- Mit einer Checkbox sollten bestimmte Ordner (im Verzeichnis) einen anderen Icon bekommen. Ist dies möglich? Habe bis jetzt nichts gefunden.

Hoffe ihr könnt mir helfen. Gruß

kann mir keiner helfen?

Answer 2

ich habe hier den folgenden code gefunden. ist noch aus XP zeiten. leider geht es mit win7 nicht, da hier die rechte für den dateizugriff anders sind. kann mir vielleicht jetzt einer weiterhelfen. weiss leider noch nicht viel über vb und dateizugriffe.

 

        Dim folderpath As String = "C:\temp\asd"
        Dim iconpath As String = "C:\temp\icon.ico"

        Dim b As New IO.FileInfo(folderpath)
        Dim FileContent As String
        Select Case Environment.OSVersion.Version.Major
            Case 5
                FileContent = "[.ShellClassInfo]" & vbNewLine & "IconFile=" & iconpath & vbNewLine & "IconIndex=0"
            Case Else
                FileContent = "[.ShellClassInfo]" & vbNewLine & "IconResource=" & iconpath & ", 0"
        End Select
        If b.Exists = True Then b.Attributes = IO.FileAttributes.Normal


        Dim buffer() As Byte = System.Text.Encoding.UTF8.GetBytes(FileContent)

       
        Dim fs As IO.FileStream = b.OpenWrite()
        fs.Write(buffer, 0, buffer.Length)
        fs.Close()

        b.Attributes = IO.FileAttributes.System Xor IO.FileAttributes.Hidden

 danke & gruß

Answer 3

Hallo zusammen,

Wurde in dem folgenden Diskussionsfaden erledigt:

http://www.vbarchiv.net/forum/id22_i84179t84179_icon-von-einem-ordner-per-vb-aendern.html

Grüße,

Robert