Rechte von eigenem Code und FolderBrowserDialog

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Rechte von eigenem Code und FolderBrowserDialog

    Moin moin

    Möchte mir ein kleines "BackUp-Programm" schreiben.

    Ich habe hier ein Problem mit dem Zugriff auf verschiedene Ordner im User-Verzeichniss. Mit dem Explorer kann ich auf fast alles zugreifen. Zugriffsverweigerung bekomme ich auf Ordner welche so ein "Verknüpfungssymbol" besitzen, siehe Bild Explorer.

    Das gleiche habe ich, wenn ich in meinem Code den FolderBrowserDialog benutze.

    Jedoch der Code, welcher mit alle Verzeichnisse im "C:\Benutzer..." anzeigen lassen soll, meldet mir, das ich auf so viele Verzeichnisse keinen Zugriff habe.
    Das Programm läuft im Admin-Modus. Warum gibt es da solche Unterschiede oder wo ist mein Fehler?

    Spoiler anzeigen
    ​
    Die Manifestdatei:

    VB.NET-Quellcode

    1. ​
    2. <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    3. <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    4. <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    5. <security>
    6. <requestedPrivileges>
    7. <requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
    8. </requestedPrivileges>
    9. </security>
    10. </trustInfo>
    11. </assembly>


    Eine weiter Class:

    VB.NET-Quellcode

    1. ​
    2. Friend Function IsRunningAsAdmin() As Boolean
    3. Dim identity As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()
    4. Dim principal As New System.Security.Principal.WindowsPrincipal(identity)
    5. Return principal.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator)
    6. End Function


    Die Class:

    VB.NET-Quellcode

    1. ​
    2. Public Class DirectorySizeCalculator
    4. Public Event DirectorySizeCalculated(ByVal directoryName As String, ByVal directorySize As Long)
    5. Public Event DirectoryAccessDenied(ByVal directoryName As String)
    7. Public Sub CalculateDirectorySizes()
    8. Dim userProfilePath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    10. For Each subDirectory As String In Directory.GetDirectories(userProfilePath)
    11. Try
    12. Dim directoryInfo As New DirectoryInfo(subDirectory)
    13. Dim totalSize As Long = GetDirectorySize(directoryInfo)
    14. RaiseEvent DirectorySizeCalculated(directoryInfo.Name, totalSize)
    15. Catch ex As UnauthorizedAccessException
    16. RaiseEvent DirectoryAccessDenied(subDirectory)
    17. End Try
    18. Next
    19. End Sub
    21. Private Function GetDirectorySize(ByVal directoryInfo As DirectoryInfo) As Long
    22. Dim totalSize As Long = 0
    24. For Each file As FileInfo In directoryInfo.GetFiles()
    25. totalSize += file.Length
    26. Next
    28. For Each subDirectory As DirectoryInfo In directoryInfo.GetDirectories()
    29. totalSize += GetDirectorySize(subDirectory)
    30. Next
    32. Return totalSize
    33. End Function
    35. End Class


    Auf dem MainForm:

    VB.NET-Quellcode

    1. ​
    2. Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    3. Dim FBDlg As New FolderBrowserDialog With {.ShowNewFolderButton = False}
    4. If (FBDlg.ShowDialog() = DialogResult.OK) Then
    5. Dim SelectedRoot As String = FBDlg.SelectedPath
    6. If IO.Directory.GetDirectoryRoot(SelectedRoot) = SelectedRoot Then
    7. ShowDirectorySelectionError()
    8. Else
    9. drivepath.SourcePath = FBDlg.SelectedPath
    10. txtSource.Text = drivepath.SourcePath
    11. End If
    12. Else
    13. ShowDirectorySelectionError()
    14. End If
    15. End Sub
    17. Private Sub directorySizeCalculator_DirectoryAccessDenied(ByVal directoryName As String) Handles directorySizeCalculator.DirectoryAccessDenied
    18. lbDenied.Items.Add("Verweigert für: " & directoryName)
    19. End Sub
    21. Private Function FormatSize(ByVal sizeInBytes As Long) As String
    22. Dim units() As String = {"Bytes", "KB", "MB", "GB", "TB"}
    23. Dim unitIndex As Integer = 0
    25. While sizeInBytes >= 1024 And unitIndex < units.Length - 1
    26. sizeInBytes = CLng(sizeInBytes / 1024)
    27. unitIndex += 1
    28. End While
    30. Return String.Format("{0} {1}", Math.Round(sizeInBytes, 2), units(unitIndex))
    31. End Function
    33. Private Sub directorySizeCalculator_DirectorySizeCalculated(ByVal directoryName As String, ByVal directorySize As Long) Handles directorySizeCalculator.DirectorySizeCalculated
    34. lvDirectories.View = View.Details
    36. Dim sizeString As String = FormatSize(directorySize)
    37. lvDirectories.Items.Add(New ListViewItem(New String() {directoryName, sizeString}))
    38. End Sub

    Bilder

    • error-1.jpg

      170,48 kB, 645×213, 34 mal angesehen

    • error-2.jpg

      205,78 kB, 699×333, 35 mal angesehen

    • expolorer-1.jpg

      105,33 kB, 442×422, 39 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Das mit diesen Verknüppungen/virtuellen Pfaden hat MS wirklich verbockt, wenn man sie nicht nutzen kann, haben die nie sichtbar zu sein. Das haben die glaub ich gemacht, um alles Multilingual zu haben. Ist auch unter Win11 noch so. Anwendungdaten ist wie der Name schon sagt, AppData. Wenn du da drauf zugreifen willst, hole den Pfad mit Environment.GetFolderPath(Environment.SpecialFolder...)
    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

    @Amelie Nur Administrative Rechte werden für ein Backup-Programm nicht reichen. learn.microsoft.com/de-de/wind…re/drivers/ifs/privileges Du benötigst mindestens zwei weitere Rechte: -> SeBackupPrivilege/SeRestorePrivilege
    Mfg -Franky-

    @DTF
    Das habe ich schon so:
    ​Friend ReadOnly UserPath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)

    @-Franky-
    Da muss ich mich erstmal reinlesen...
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

Facebook
Telefonspende