Verzeichnisgröße berechnen

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

Es gibt 39 Antworten in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Hi,
    ich habe eine kleine Sub, welche nur die lesbaren Ordner und Objekte berücksichtigen sollte.
    Diese gibt die Anzahl der in einem vorgegebenen Stammordner enthaltenen Unterordner, die Gesamtzahl aller enthaltenen Dateien und in einer Liste alle enthaltenen Dateien zurück.
    Diese Sub verwende ich für alle möglichen Aufgaben.

    EDIT: Aber ich lasse auch auf dem System-Laufwerk nur das Einlesen von:
    Sysdrive:\Benutzer\Öffentlich\Öffentliche Dokumente
    Sysdrive:\Benutzer\Öffentlich\Öffentliche Downloads
    Sysdrive:\Benutzer\Öffentlich\Öffentliche Bilder
    Sysdrive:\Benutzer\Öffentlich\Öffentliche Musik
    Sysdrive:\Benutzer\Öffentlich\Öffentliche Videos
    und
    Sysdrive:\Benutzer\%Benutzername%\Dokumente
    Sysdrive:\Benutzer\%Benutzername%\Downloads
    Sysdrive:\Benutzer\%Benutzername%\Bilder
    Sysdrive:\Benutzer\%Benutzername%\Musik
    Sysdrive:\Benutzer\%Benutzername%\Videos

    Als Quellordner zu, um Zugriffssperren zu vermeiden.

    Diese lese ich mit:
    Dim allUsers As String = Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.Windows).Replace("Windows", "Users"))
    Dim commonDocuments As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDocuments)
    Dim commonDownloads As String = Path.Combine(allUsers, "Public\Downloads")
    Dim commonMusic As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonMusic)
    Dim commonPictures As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonPictures)
    Dim commonVideos As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonVideos)

    und

    Dim myDocuments As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Dim myDownloads As String = IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads")
    Dim myMusic As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
    Dim myPictures As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
    Dim myVideos As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyVideos)

    aus den System-Einstellungen aus.


    Mit

    VB.NET-Quellcode

    1. searchOption = SearchOption.AllDirectories

    werden alle Unterordner durchsucht

    Mit

    VB.NET-Quellcode

    1. searchOption = SearchOption.AllDirectories

    wird nur die Stammebene eingelesen

    VB.NET-Quellcode

    1. Private Sub Stammverzeichnis einlesen(verzeichnis As String, searchOption)
    2. fileList.Clear()
    3. foldercount = 0
    4. filecount = 0
    5. TraverseDirectory(verzeichnis, SearchOption, fileList, foldercount, filecount)
    6. ' Nach dem Aufruf enthält:
    7. ' filelist : Liste aller enthaltenen Dateien
    8. ' Foldercount : Anzahl der enthaltenen Verzeichnisse
    9. ' Filecount : Anzahl aller enthaltenen Dateien
    10. End If
    12. Private Sub TraverseDirectory(ByVal directory As String, ByVal searchOption As SearchOption, ByRef fileList As List(Of String), ByRef folderCount As Integer, ByRef fileCount As Integer)
    13. Try
    14. If (searchOption = SearchOption.AllDirectories) Then
    15. ' Alle Dateien im aktuellen Verzeichnis hinzufügen
    16. Dim filesInDirectory As String() = IO.Directory.GetFiles(directory)
    17. fileList.AddRange(filesInDirectory)
    18. fileCount += filesInDirectory.Length
    20. ' Anzahl der enthaltenen Ordner erhöhen
    21. folderCount += 1
    23. ' Rekursiv die Unterverzeichnisse durchlaufen
    24. For Each subDirectory As String In IO.Directory.GetDirectories(directory)
    25. TraverseDirectory(subDirectory, searchOption, fileList, folderCount, fileCount)
    26. Next
    27. Else
    28. ' Nur Dateien im aktuellen Verzeichnis hinzufügen
    29. Dim filesInDirectory As String() = IO.Directory.GetFiles(directory)
    30. fileList.AddRange(filesInDirectory)
    31. fileCount += filesInDirectory.Length
    32. End If
    33. Catch ex As System.Exception
    34. ' Fehlerbehandlung hier
    35. End Try
    36. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Dideldum“ ()

    Moin moin

    Also ich habe mal umgebaut und bin dann doch wieder etwas, nein sehr "verwundert" über das "unlogische" Windows.

    Zum Beispiel:
    Der Pfad im Explorer: C:\Users\Fox\Pictures
    Der Pfad im Code: Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)

    Der Pfad im Explorer: C:\Users\Fox\Downloads
    Der Pfad im Code: Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads")

    Warum ist der Eigene Ordner mal direkt ansprechbar und warum muss ich dann plötzlich einen Pfad zusammenbauen ?( ?(
    Warum ist die Schreibweise so unterschiedlich? "Pictures" "MyPictures" ?(


    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Public Class DirectorySizeCalculator
    3. ' Initialisierung der Listen und Zählvariablen
    4. Private ListofFiles As New List(Of String)()
    5. Private CountFolders As Integer = 0
    6. Private CountFiles As Integer = 0
    7. Private TotalBytes As Long = 0
    9. Public Sub ReadUserDirectorys()
    10. ' Liste der zu durchsuchenden Verzeichnisse
    11. Dim directories As String() = {
    12. Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments),
    13. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads"),
    14. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Contacts"),
    15. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Saved Games"),
    16. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Links"),
    17. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Searches"),
    18. Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData"),
    19. Environment.GetFolderPath(Environment.SpecialFolder.MyMusic),
    20. Environment.GetFolderPath(Environment.SpecialFolder.MyPictures),
    21. Environment.GetFolderPath(Environment.SpecialFolder.MyVideos),
    22. Environment.GetFolderPath(Environment.SpecialFolder.Favorites),
    23. Environment.GetFolderPath(Environment.SpecialFolder.Desktop),
    24. Environment.GetFolderPath(Environment.SpecialFolder.Resources),
    25. Environment.GetFolderPath(Environment.SpecialFolder.History),
    26. Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    27. }
    29. 'Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData\Roaming"),
    30. 'Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData\LocalLow"),
    31. 'Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "AppData\Local"),
    32. 'Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
    33. ' Rücksetzen der Listen und Zählvariablen
    34. ListofFiles.Clear()
    35. CountFolders = 0
    36. CountFiles = 0
    37. TotalBytes = 0
    39. ' Durchlaufen und Verarbeiten der Verzeichnisse
    40. For Each dir As String In directories
    41. AnalyzeDirectory(dir, SearchOption.AllDirectories, ListofFiles, CountFolders, CountFiles, TotalBytes)
    42. Next
    43. ' Umrechnen der Bytes
    44. 'Dim totalSizeInGB As Double = totalBytes / 1073741824.0 ' Byte in Gigabyte umrechnen
    45. Dim totalSizeInMB As Double = TotalBytes / 1048576.0 ' Byte in Megabyte umrechnen
    46. ' Ausgabe der Ergebnisse
    47. Debug.WriteLine($"{NewCrlLf}Dateien: {CountFiles}{NewCrlLf}Ordner: {CountFolders}{NewCrlLf}Gesamtgröße: {totalSizeInMB:N2} MegaBytes{NewCrlLf}Gesamtgröße: {TotalBytes} Byte")
    48. 'MessageBox.Show($"Dateien: {fileCount}, Ordner: {folderCount}, Gesamtgröße: {totalSizeInMB:N2} MBytes")
    49. End Sub
    51. Private Sub AnalyzeDirectory(ByVal dirPath As String, ByVal searchOption As SearchOption, ByRef fileList As List(Of String), ByRef folderCount As Integer, ByRef fileCount As Integer, ByRef totalBytes As Long)
    52. Try
    53. ' Überprüfen, ob das Verzeichnis existiert
    54. If Directory.Exists(dirPath) Then
    55. ' Versuchen Sie, auf das Verzeichnis zuzugreifen
    56. Dim directoryInfo As New DirectoryInfo(dirPath)
    57. ' Prüfen Sie, ob Ihr Programm Zugriff auf das Verzeichnis hat
    58. If directoryInfo.Exists Then
    59. ' Alle Dateien im aktuellen Verzeichnis hinzufügen
    60. Dim filesInDirectory As String() = Directory.GetFiles(dirPath)
    61. fileList.AddRange(filesInDirectory)
    62. fileCount += filesInDirectory.Length
    63. For Each file As String In filesInDirectory
    64. totalBytes += New FileInfo(file).Length
    65. Next
    67. ' Anzahl der enthaltenen Ordner erhöhen
    68. folderCount += Directory.GetDirectories(dirPath).Length
    70. ' Rekursiv die Unterverzeichnisse durchlaufen, wenn AllDirectories gewählt ist
    71. If (searchOption = SearchOption.AllDirectories) Then
    72. For Each subDirectory As String In Directory.GetDirectories(dirPath)
    73. AnalyzeDirectory(subDirectory, searchOption, fileList, folderCount, fileCount, totalBytes)
    74. Next
    75. End If
    76. Else
    77. ' Verzeichnis existiert nicht oder Zugriff verweigert
    78. Debug.WriteLine($"Zugriff auf Verzeichnis {dirPath} verweigert.{NewCrlLf}")
    79. End If
    80. Else
    81. ' Verzeichnis existiert nicht
    82. Debug.WriteLine($"Verzeichnis {dirPath} existiert nicht.{NewCrlLf}")
    83. End If
    84. Catch ex As UnauthorizedAccessException
    85. ' Zugriff verweigert, Verzeichnis überspringen
    86. Debug.WriteLine($"Zugriff auf Verzeichnis {dirPath} verweigert:{NewCrlLf} {ex.Message}")
    87. Catch ex As DirectoryNotFoundException
    88. ' Verzeichnis nicht gefunden, Verzeichnis überspringen
    89. Debug.WriteLine($"Verzeichnis {dirPath} nicht gefunden:{NewCrlLf} {ex.Message}")
    90. Catch ex As PathTooLongException
    91. ' Pfad zu lang, Verzeichnis überspringen
    92. Debug.WriteLine($"Pfad zu lang für Verzeichnis {dirPath}:{NewCrlLf} {ex.Message}")
    93. Catch ex As IOException
    94. ' Ein-/Ausgabefehler, Verzeichnis überspringen
    95. Debug.WriteLine($"Ein-/Ausgabefehler beim Zugriff auf Verzeichnis {dirPath}:{NewCrlLf} {ex.Message}")
    96. Catch ex As Exception
    97. ' Andere Ausnahmen behandeln
    98. Debug.WriteLine($"Unbekannter Fehler beim Zugriff auf Verzeichnis {dirPath}:{NewCrlLf} {ex.Message}")
    99. End Try
    100. End Sub
    101. End Class


    DebugAusgaben:

    XML-Quellcode

    1. ​
    2. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Bilder verweigert:
    3. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Bilder" wurde verweigert.
    4. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Musik verweigert:
    5. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Musik" wurde verweigert.
    6. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Videos verweigert:
    7. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Videos" wurde verweigert.
    8. Zugriff auf Verzeichnis C:\Users\Fox\AppData\Local\Anwendungsdaten verweigert:
    9. Der Zugriff auf den Pfad "C:\Users\Fox\AppData\Local\Anwendungsdaten" wurde verweigert.
    10. Zugriff auf Verzeichnis C:\Users\Fox\AppData\Local\Temporary Internet Files verweigert:
    11. Der Zugriff auf den Pfad "C:\Users\Fox\AppData\Local\Temporary Internet Files" wurde verweigert.
    12. Zugriff auf Verzeichnis C:\Users\Fox\AppData\Local\Verlauf verweigert:
    13. Der Zugriff auf den Pfad "C:\Users\Fox\AppData\Local\Verlauf" wurde verweigert.
    14. Zugriff auf Verzeichnis C:\Users\Fox\AppData\Roaming\Microsoft\Windows\Start Menu\Programme verweigert:
    15. Der Zugriff auf den Pfad "C:\Users\Fox\AppData\Roaming\Microsoft\Windows\Start Menu\Programme" wurde verweigert.
    16. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Bilder verweigert:
    17. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Bilder" wurde verweigert.
    18. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Musik verweigert:
    19. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Musik" wurde verweigert.
    20. Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Videos verweigert:
    21. Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Videos" wurde verweigert.
    23. Dateien: 42853
    24. Ordner: 2477
    25. Gesamtgröße: 1.354,44 MegaBytes
    26. Gesamtgröße: 1420236589 Byte
    28. Angabe vom Explorer (ganze Benutzerverzeichnis)
    29. Dateien: 42873
    30. Ordner: 2424
    31. Größe: 1,34GB ( 1.444.050.300 )


    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Also was weiterhin auffällt ist, dass alle Fehler bei einem Pfad kommen der deutsch endet.
    Vielleicht gehört das zu den allgemeinen Problemen die @slice erwähnte.

    Im Deutschen gibt es auch Bilder und Eigene Bilder. Vielleicht macht das noch n Unterschied?

    Amelie schrieb:

    Der Pfad im Explorer: C:\Users\Fox\Pictures
    Der Pfad im Code: Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)

    Der Pfad im Explorer: C:\Users\Fox\Downloads
    Der Pfad im Code: Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads")

    Warum ist der Eigene Ordner mal direkt ansprechbar und warum muss ich dann plötzlich einen Pfad zusammenbauen
    SpecialFolder enthält eine Auflistung an Pfaden, wenn Downloads da nicht mit aufgenommen wurde, dann musst du natürlich selbst hin navigieren.

    Nur so nebenbei bei mir wird von SpecialFolder auch der deutsche Pfadname zurückgegeben. Also ich habe da "Bilder" stehen. Und nicht Pictures.

    Aber hast du denn mal versucht den Pfad einfach selbst einzugeben? Außerdem würde ich vorschlagen, damit wir mit diesen Namen-Wirrungen nicht in die Bredouille kommen, du legst mal ein Netzlaufwerk an das zu einem dieser Fehlerpfade verlinkt ist, dann gibt es sicher keine Namenskonflikte mehr.

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    @Haudruferzappeltnoch
    Wie / was meinst du mit den beiden Sachen?
    Aber hast du denn mal versucht den Pfad einfach selbst einzugeben?


    Netzlaufwerk an das zu einem dieser Fehlerpfade verlinkt ist...


    Der Pfad im Explorer: C:\Users\Fox\Pictures
    Das zeigt der Expolrer, wenn ich auf Eigenschaften / Pfad schaue. Im Eigentlichen Verzeichnisbaum steht auch Bilder usw.. eben alles in Deutsch.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    selbst eingeben? Na einfach den String hinschreiben. Ich weiß ja auch nicht von welchen Problemen slice redet, und ob man die umgehen kann, aber erstmal verwirrt mich unfassbar, das an verschiedenen Stellen im Code verschiedene Pfade stehen für denselben Ort.

    Netzlaufwerk geht scheinbar nicht, da muss ich nochmal schauen...
    Meinte natürlich ein substituiertes Laufwerk kein Netzlaufwerk, am Ende kommts aufs Selbe hinaus, dass du es von Hand eingibst. Nur beim Pfad kann man sich dann nicht vertippen. Die Zuordnung übernimmt dann außerdem Windows und man kann prüfen ob das ein Unterschied zu dem ist, was das Programm tut. Das ist was mir zu slices Einwänden eingefallen ist.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Hi @Amelie

    Ich erhalte aus den SpecialFolders wie Du auch englische Bezeichnungen.
    Das ist m.W. von der Windows-Installations-Quelle abhängig.
    Aber das juckt ja nicht, wichtig ist, dass die Pfade mit der Nutzung der Specialfolders so ansprechbar sind, dass diese auf jedem System stimmen.
    Egal, ob der Benutzer die umbenannt oder den Pfad dieser Ordner im System geändert hat. ;)

    Das "My" in der Bezeichnung bedeutet (i.d.R) in den SpecialFolders, dass der betreffende Ordner im C:\Users\%Benutzername% enthalten ist.
    Das "Common" in der Bezeichnung bedeutet in den SpecialFolders, dass der betreffende Ordner im C:\Users\All Users\ liegt oder zumindest für alle User Geltung hat.
    Beginnt ein SpecialFolder mit anderen Zeichen, liegt der irgendwo anders auf der Systemplatte.
    Leider hat MS das eigentlich sinnvolle System nicht konsequent umgesetzt.
    So ist z.B. beim Desktop:
    System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirector der Desktop in "C:\Users\All Users\Desktop"
    während
    System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop und nicht wie zu erwarten wäre System.Environment.GetFolderPath(Environment.SpecialFolder.MyDesktop der Desktop des Benutzers in "C:\Users\%Benutzername%\Desktop"

    Ich nutze in meinem derzeitigen Projekt folgende Zuweisungen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim allUsers As String = Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.Windows).Replace("Windows", "Users"))
    2. Dim winDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Windows)
    3. Dim fontsDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Fonts)
    4. Dim localizedResources As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalizedResources) ' Leerer String
    5. Dim programFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
    6. Dim programFilesX86 As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFilesX86)
    7. Dim resources As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Resources)
    8. Dim systemDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.System)
    9. Dim systemDir64 As String = System.Environment.GetFolderPath(Environment.SpecialFolder.SystemX86)
    11. Dim commonAdminTools As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonAdminTools)
    12. Dim commonAppData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)
    13. Dim commonDownloads As String = Path.Combine(allUsers, "Public\Downloads")
    14. Dim commonDesktop As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory)
    15. Dim commonDocuments As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDocuments)
    16. Dim commonMusic As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonMusic)
    17. Dim commonOEMLinks As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonOemLinks)
    18. Dim commonPictures As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonPictures)
    19. Dim commonProgramFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)
    20. Dim commonProgramFilesX86 As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFilesX86)
    21. Dim commonPrograms As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonPrograms)
    22. Dim commonStartmenu As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonStartMenu)
    23. Dim commonStartUp As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonStartup)
    24. Dim commonTemplates As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonTemplates)
    25. Dim commonVideos As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonVideos)
    27. Dim myAdminTools As String = System.Environment.GetFolderPath(Environment.SpecialFolder.AdminTools)
    28. Dim myAppData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    29. Dim myCDBurning As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CDBurning)
    30. Dim myComputer As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer) ' leerer String
    31. Dim myCookiesDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
    32. Dim myDesktop As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    33. Dim MyDesktopDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) ' Doppelt = Desktop
    34. Dim myDocuments As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    35. Dim myDownloads As String = IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads")
    36. Dim myFavorites As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
    37. Dim myHistory As String = System.Environment.GetFolderPath(Environment.SpecialFolder.History)
    38. Dim myInternetCache As String = System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)
    39. Dim myLocalAppData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
    40. Dim myMusic As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
    41. Dim myNetworkShortcuts As String = System.Environment.GetFolderPath(Environment.SpecialFolder.NetworkShortcuts)
    42. Dim myPictures As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
    43. Dim myPrinterShortcuts As String = System.Environment.GetFolderPath(Environment.SpecialFolder.PrinterShortcuts)
    44. Dim myPrograms As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Programs)
    45. Dim myRecent As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Recent)
    46. Dim mySendTo As String = System.Environment.GetFolderPath(Environment.SpecialFolder.SendTo)
    47. Dim myStartmenu As String = System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
    48. Dim myStartup As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
    49. Dim myTemplates As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Templates)
    50. Dim myUserProfile As String = System.Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    51. Dim myVideos As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyVideos)


    Hier aus meinem Manual:
    Globale Platzhalter

    Platzhalter Aufruf Ziel

    %ProgramFiles% <file:%ProgramFiles%\> (<file:C:\Program Files\>)
    %CommonProgramFiles% <file:%CommonProgramFiles%\> (<file:C:\Program Files\Common Files\>)
    %ProgramFilesX86% <file:%ProgramFilesX86%\> (<file:C:\Program Files (x86)\>)
    %CommonProgramFilesX86% <file:%CommonProgramFilesX86%\> (<file:C:\Program Files (x86)\Common Files\>)

    %CommonAppData% <file:%CommonAppData%\> (<file:C:\ProgramData\>)
    %CommonStartMenu% <file:%CommonStartMenu%\> (<file:C:\ProgramData\Microsoft\Windows\Start Menu\>)
    %CommonPrograms% <file:%CommonPrograms%\> (<file:C:\ProgramData\Microsoft\Windows\Start Menu\Programs\>)
    %CommonAdminTools% <file:%CommonAdminTools%\> (<file:C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools\>)
    %CommonStartUp% <file:%CommonStartUp%\> (<file:C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\>)
    %CommonTemplates% <file:%CommonTemplates%\> (<file:C:\ProgramData\Microsoft\Windows\Templates\>)

    Benutzer-Ordner

    Platzhalter Aufruf Ziel

    %MyUserProfile% <file:%MyUserProfile%\> (<file:C:\Users\%Benutzername%\>)
    %MyLocalAppData% <file:%MyLocalAppData%\> (<file:C:\Users\%Benutzername%\AppData\Local\>)
    %MyCDBurning% <file:%MyCDBurning%\> (<file:C:\Users\%Benutzername%\AppData\Local\Microsoft\Windows\Burn\Burn\>)
    %MyHistory% <file:%MyHistory%\> (<file:C:\Users\%Benutzername%\AppData\Local\Microsoft\Windows\History\>)
    %MyInternetCache% <file:%MyInternetCache%\> (<file:C:\Users\%Benutzername%\AppData\Local\Microsoft\Windows\iNetCache\>)
    %MyCookiesDir% <file:%MyCookiesDir%\> (<file:C:\Users\%Benutzername%\AppData\Local\Microsoft\Windows\iNetCookies\>)
    %MyRoamingAppData% <file:%MyRoamingAppData%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\>)
    %MyNetworkShortcuts% <file:%MyNetworkShortcuts%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Network Shortcuts\>)
    %MyPrinterShortcuts% <file:%MyPrinterShortcuts%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Printer Shortcuts\>)
    %MyRecent% <file:%MyRecent%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Recent\>)
    %MySendTo% <file:%MySendTo%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\SendTo\>)
    %MyStartMenu% <file:%MyStartMenu%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Start Menu\>)
    %MyPrograms% <file:%MyPrograms%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\>)
    %MyAdminTools% <file:%MyAdminTools%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Administrative Tools\>)
    %MyStartUp% <file:%MyStartUp%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\>)
    %MyTemplates% <file:%MyTemplates%\> (<file:C:\Users\%Benutzername%\AppData\Roaming\Microsoft\Windows\Templates\>)
    %MyDesktop% <file:%MyDesktop%\> (<file:C:\Users\%Benutzername%\Desktop\>)
    %MyDocuments% <file:%MyDocuments%\> (<file:C:\Users\%Benutzername%\Documents\>)
    %MyFavorites% <file:%MyFavorites%\> (<file:C:\Users\%Benutzername%\Favorites\>)
    %MyMusic% <file:%MyMusic%\> (<file:C:\Users\%Benutzername%\Music\>)
    %MyPictures% <file:%MyPictures%\> (<file:C:\Users\%Benutzername%\Pictures\>)
    %MyVideos% <file:%MyVideos%\> (<file:C:\Users\%Benutzername%\Videos\>)

    Gemeinsame Ordner

    Platzhalter Aufruf Ziel

    %CommonDesktop% <file:%CommonDesktop%\> (<file:C:\Users\Public\Desktop\>)
    %CommonDocuments% <file:%CommonDocuments%\> (<file:C:\Users\Public\Documents\>)
    %CommonMusic% <file:%CommonMusic%\> (<file:C:\Users\Public\Music\>)
    %CommonPictures% <file:%CommonPictures%\> (<file:C:\Users\Public\Pictures\>)
    %CommonVideos% <file:%CommonVideos%\> (<file:C:\Users\Public\Videos\>)

    System-Ordner

    Platzhalter Aufruf Ziel

    %WinDir% <file:%WinDir%\> (<file:C:\Windows\>)
    %FontsDir% <file:%FontsDir%\> (<file:C:\Windows\Fonts\>)
    %Resources% <file:%Resources%\> (<file:C:\Windows\Resources\>)
    %SystemDir% <file:%SystemDir%\> (<file:C:\Windows\System32\>)
    %SystemDir64% <file:%SystemDir64%\> (<file:C:\Windows\SysWOW64\>)





    Allerdings ist mir auch nicht klar, warum bei Dir das Directory.exists in einen Fehler läuft.

    @Haudruferzappeltnoch meinte wohl, dass Du einfach mal einen Befehl wie folgenden testen könntest.

    VB.NET-Quellcode

    1. dim test_Bool as boolean = false
    2. try
    3. test = io.path.directory.exists("C:\Users\Fox\Pictures")
    4. debug.print "1. Test: " & test
    5. Catch ex As System.Exception
    6. Debug.print ("1. Test: " & ex.message)
    7. End Try
    9. try
    10. test = io.path.directory.exists(System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures))
    11. debug.print "2. Test: " & test
    12. Catch ex As System.Exception
    13. Debug.print ("2. Test: " & ex.message)
    14. End Try

    Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „Dideldum“ ()

    @Dideldum
    Moin moin

    Test ergibt in beiden Fällen ein "True" :thumbup:

    VB.NET-Quellcode

    1. ​
    2. Dim chkDir As Boolean = False
    3. Dim chkDir2 As Boolean = False
    4. Try
    5. chkDir = IO.Directory.Exists("C:\Users\Fox\Pictures")
    6. chkDir2 = IO.Directory.Exists("C:\Users\Public\Pictures")
    8. Debug.Print($"Test 1: {chkDir} - {chkDir2}")
    9. Catch ex As System.Exception
    10. Debug.Print($"1. Test: {ex.Message}")
    11. End Try
    13. Try
    14. chkDir = IO.Directory.Exists(System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures))
    15. chkDir2 = IO.Directory.Exists(System.Environment.GetFolderPath(Environment.SpecialFolder.CommonPictures))
    17. Debug.Print($"Test 2: {chkDir} - {chkDir2}")
    18. Catch ex As System.Exception
    19. Debug.Print($"2. Test: {ex.Message}")
    20. End Try
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie,

    hallöchen.

    Wo bricht denn in Deinem obigen Script die Einzelschrittverfolgung ab und läuft dann in Zeile 84 in den Error?

    P.S. eine vielleicht nützliche Ergänzung zu Deinem Programm:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function BytesToMBGBTB(bytes As Long) As String
    2. Dim vl As String
    3. Dim length As Long = bytes
    4. If length < 1024 Then
    5. vl = length.ToString & " Bytes"
    6. ElseIf length < 1024 * 1024 Then
    7. vl = Math.Round(length / 1024, 3).ToString & " KB"
    8. ElseIf length < CLng(1024) * 1024 * 1024 Then
    9. vl = Math.Round(length / 1024 / 1024, 3).ToString & " MB"
    10. ElseIf length < CLng(1024) * 1024 * 1024 * 1024 Then
    11. vl = Math.Round(length / 1024 / 1024 / 1024, 3).ToString & " GB"
    12. Else
    13. vl = Math.Round(length / 1024 / 1024 / 1024 / 1024, 3).ToString & " TB"
    14. End If
    15. Return vl
    16. End Function

    @Dideldum
    Abbruch, naja wenn er eins von diesen Verzeichnissen lesne soll.

    Irgendwie nervt mich dieses Windows grad wieder, weil nichts konsequent gemacht ist. :cursing:
    Ich bekommt das nicht in den Kopf, warum ich die Verzeichnisse kopieren darf aber dessen Größe ermitteln wird mir verweigert.
    Das ist doch unsinnig! ?(
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    [off topic]

    Amelie schrieb:

    Also im Explorer sehe ich:
    Im Code verwende ich:

    VB.NET-Quellcode

    1. Public Property CurrentUserPath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))


    Dabei bekomme ich unter anderem diesen Fehler geworfen.
    Fehler beim Ermitteln der Größe des Verzeichnisses C:\Users\Fox\Documents\Eigene Bilder: Der Zugriff auf den Pfad "C:\Users\Fox\Documents\Eigene Bilder" wurde verweigert.


    Das kann doch gar nicht sein, das sind zwei unterschiedliche Pfade, den Path.Combine kombiniert nichts ! :rolleyes:

    Environment.SpecialFolder.MyPictures ist das Enum das zum ziel führt !

    @FormFollowsFunction Ich würde nicht sagen, dass das off topic, ist. Wir kommen hier ja keinen Schritt weiter. Dein Punkt bestätigt auch wieder meine Vermutung, dass immer noch keine korrekte Fehlerbeschreibung vorliegt.

    Amelie schrieb:

    Irgendwie nervt mich dieses Windows grad wieder, weil nichts konsequent gemacht ist.
    Ich denke nicht, dass es an Windows liegt. Nu hör doch mal auf die Leuts und such eine einzige bestimmte Datei raus, die nicht tut. Isoliert ausprobieren, die Length zu lesen. Dann probieren ob kopieren mit der Datei geht.
    Du hast da eine Schleife laufen und für mich siehts bisher so aus als würde ein Teil funktionieren und ein Teil nicht. Da ist doch klar, dass man die fehlerhaften Elemente erstmal identifizieren muss. Man hat das Gefühl, du hast dein Problem noch nichtmal angefangen zu debuggen. (Und wir sind im Thema schon auf 2 Seiten am Ursachen diskutieren.)

    Hi @Amelie
    Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
    Path.Combine verbindet Pfad-Teilstring1 mit Pfad-Teilstring2
    Du hast aber nur einen String im Combine.
    Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    Das Ergebnis ist "C:\Users\%Benutzername%".

    Zum Combine fehlt ein zweiter Kommagetrennter Parameter wie z.B. "Pictures"
    Das würde dann so formuliert:
    Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile),"Pictures")
    (Dieser Pfad lässt sich nur auflösen, wenn tatsächlich ein Ordner "C:\Users\%Benutzername%\Pictures" existiert. Also ganz unabhängig von dem in den "Bilder"-Eigenschaften eingetragenen Verzeichnis).

    (Der SpecialFolder "MyPictures"
    System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
    verlinkt IMMER auf den Pfad, der in einem Windows-System dem System-Ordner "Bilder" zugewiesen ist, selbst dann, wenn der User den Ordnerpfad über die Eigenschaften dem System-Link zu "Bilder" einen anderen Pfad zuweist)
    Also gibt der Inhalt des SpecialFolders "MyPictures" tatsächlich den Pfad zurück, der in den Eigenschaften von "Bilder" (das ist ja nur ein System-Link) im Pfad drin steht.

    Die beiden Ergebnis-Strings
    Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile),"Pictures")
    und System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
    können also - wenn der User in seinen "Bilder"-Eigenschaften den Pfad z.B. auf den Pfad "D:\Eigene Bilder" auf seiner Datenplatte umgelenkt hat, zwei grundverschiedene Ergebnisse liefern.

    Wo bricht denn Deine Schleife ab, wenn Du einen Haltepunkt auf Deine Zeile 40 setzt und solange wiederholt "F11" drückst, bis die Schleife in den Error läuft?
    Welche Inhalte hatten vor dem Coitus die Variablen?
    Bilder

    • 2024-05-21 23-31-45.jpg

      84,94 kB, 379×499, 230 mal angesehen

    Dieser Beitrag wurde bereits 14 mal editiert, zuletzt von „Dideldum“ ()

    @Haudruferzappeltnoch

    Der Ablauf, läuft in die Exception wenn der Code z.B. hier auftrifft:
    Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

    Der Grund ist wohl, das man auf die Unter-Verzeichnisse "Eigene Bilder, Eigene Musik, Eigene Videos" so keinen Zugriff hat, weil diese Verzeichnisse da irgendwie "verknüpft" sind?
    Ich weiß das nicht, wie man das nennt. Siehe Bildanhang

    Wenn ich eine bestimmte Datei in einem der Ordner im Userverzeichnis ablege, wo ich Zugriff habe, kann ich die auch lesen!

    VB.NET-Quellcode

    1. ...
    2. Catch ex As UnauthorizedAccessException
    3. ' Zugriff verweigert, Verzeichnis überspringen
    4. Debug.WriteLine($"Zugriff verweigert:{NewCrlLf}{ex.Message}")
    5. ...

    Da bekomme ich dann folgendes:
    Zugriff auf Verzeichnis C:\Users\Fox\Documents\Eigene Bilder verweigert:


    Ich muss dann wohl systematisch diese Zugriffsverweigeungen abfangen und "Ignorieren"?

    Und nochmal zur Erklärung:

    Ich habe im Benutzerverzeichnis die Verzeichnisse:
    "Eigene Bilder" "Eigene Musik" "Eigene Videos" und "Eigene Dokumente" und "Eigene Dateien"

    In dem Verzeichnis "Eigene Dokumente" habe ich wieder "Eigene Bilder" usw...

    Warum doppelt? Warum kann ich da nicht drauf zugreifen?
    Auch auf das Verzeichnis "Eigene Dateien" und einige andere, kann ich nicht zugreifen! Gerade so ein Verzeichnis wie "AppData" wo ja eigentlich wichtige Dateien liegen.

    Das ist für mich verwirrend!



    Fazit für mich:
    Es ist wohl so ohne weiteres nicht möglich " MEIN BENUTZERKONTO " mal eben zu sichern ODER eben nur das was Windows zulässt, auch wenn dann Teile von den Daten fehlen ?(
    Bilder

    • shoot1.jpg

      119,86 kB, 672×250, 24 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    C:\Users\Fox\Documents\Eigene Bilder

    Amelie schrieb:

    Der Ablauf, läuft in die Exception wenn der Code z.B. hier auftrifft:
    Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Die Pfade stimmen doch nicht überein. Wenn der Fehler bei Environment.SpecialFolder.MyDocuments kommt, dann sollte doch "C:\Users\Fox\Documents" rauskommen, oder nicht?

    Hallo at all ;)

    Habe mal komplett neu angefangen und mein Test-Code hier als zip angegangen. (ohne obj etc..)
    Zum testen alles in der FormClass.
    Dateien

    • TestCopy.zip

      (21,54 kB, 27 mal heruntergeladen, zuletzt: )
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Hi @Amelie

    die im Win-Explorer angezeigten Ordner "Eigene Bilder", "Eigene Videos", "Eigene Dokumente" usw. in Deinem Benutzerverzeichnis sind Verknüpfungen wie die auf dem Desktop.

    Diese System-Verknüpfungen im UserOrdner können ebenso beliebige Namen haben und beinhalten wie die Verknüpfungen auf den Desktop einen verlinkten Pfad, welchen Du mit den SpecialFolders abrufen kannst.
    Diese System-Verknüpfungen ersetzen in der Win-Explorer-Anzeige den eigentlichen Ordnernamen, welcher in diesen System-Verknüpfungen im Pfad eingetragen ist.

    Doppelklickst Du also in Win-Explorer die System-Verknüpfung "Meine Bilder" in Deinem Benutzer-Verzeichnis, öffnet der Win-Explorer den Pfad, welcher in dieser Verknüpfung als Pfad eingetragen ist, zeigt aber in seiner Adressleiste den Namen und nicht den Pfad der Verknüpfung an.
    So zeigt der Win-Explorer per Default z.B. beim Doppelklick auf "Eigene Bilder" in seiner Adressleiste "> Fox > Bilder" und nicht den tatsächlichen Pfad "C:\Users\Fox\Pictures".

    Diesen tatsächlichen Pfad kannst Du aber auslesen, wenn Du:
    1. Mit der linken Maustaste in die Adresszeile des Windows-Explorer klickst
    2. Die System-Verknüpfung mit der rechten Maus anklickst und den Popup-Menupunkt "Eigenschaften" anklickst. Im Tab "Pfad" findest Du den tatsächlichen Pfadnamen.

    An die tatsächlichen Pfadnamen dieser System-Ordner kommst Du also nur unter Nutzung der SpecialFolders, welche eben den Pfad auslesen, welcher in der Verknüpfung steckt.

    Der Sinn dahinter:
    Verknüpfungen kann man kann beliebig umbenennen, ohne die Funktion der Verknüpfung (den darin versteckten Pfad aufzurufen) zu beeinträchtigen.
    Auch haben diese Verknüpfungen in jedem Land andere Namen - hier "Eigene Bilder", im englischsprachigen Raum "My Pictures" usw.

    Daher haben die Variablen in den SpecialFolders auch andere "universale" Aufrufnamen, welche den angesprochenen Ordner-String zurück geben.
    Im Fall "Eigene Bilder" ist dies eben "myPictures"

    Beim Aufruf von
    System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures
    geht das System also her und greift auf den Pfad zu, der in der System-Verknüpfung drin steckt, welche hier den Namen "Eigene Bilder" trägt.
    Dies egal, welchen Namen die Verknüpfung trägt, denn SpecialFolders greift sich den Pfad aus der System-Verknüpfung, die für die "Eigene Bilder" steht.
    Hier ist also nicht Nonmen est Omen, sondern System-Verknüpfungen es omen. :D

    Die Liste von Aufrufnamen und Pfade dieser SpecialFolders habe ich ja oben schon gepostet.

    Hi @Amelie
    Im Ordner "C:\Users\%Benutzername%" sind natürlich viele Dateien und Ordner, auf welche der User (auch, wenn dieser als Administrator angemeldet ist) keinen Zugriff hat.
    Aber alle der folgenden Ordner sind für den User (soweit ich weiss - habe es noch nicht einzeln getestet) zugänglich - und diese kannst Du auch sichern:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim myAdminTools As String = System.Environment.GetFolderPath(Environment.SpecialFolder.AdminTools)
    2. Dim myAppData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
    3. Dim myCDBurning As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CDBurning)
    4. Dim myComputer As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer) ' leerer String
    5. Dim myCookiesDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
    6. Dim myDesktop As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    7. Dim MyDesktopDir As String = System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) ' Doppelt = Desktop
    8. Dim myDocuments As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    9. Dim myDownloads As String = IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.UserProfile), "Downloads")
    10. Dim myFavorites As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
    11. Dim myHistory As String = System.Environment.GetFolderPath(Environment.SpecialFolder.History)
    12. Dim myInternetCache As String = System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)
    13. Dim myLocalAppData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
    14. Dim myMusic As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
    15. Dim myNetworkShortcuts As String = System.Environment.GetFolderPath(Environment.SpecialFolder.NetworkShortcuts)
    16. Dim myPictures As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
    17. Dim myPrinterShortcuts As String = System.Environment.GetFolderPath(Environment.SpecialFolder.PrinterShortcuts)
    18. Dim myPrograms As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Programs)
    19. Dim myRecent As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Recent)
    20. Dim mySendTo As String = System.Environment.GetFolderPath(Environment.SpecialFolder.SendTo)
    21. Dim myStartmenu As String = System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
    22. Dim myStartup As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
    23. Dim myTemplates As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Templates)
    24. Dim myUserProfile As String = System.Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    25. Dim myVideos As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyVideos)


    Wenn Du versuchst, den gesamten User-Ordner zu sichern, laufen einige Fehler aufgrund nicht zugreifbarer Ordner/Dateien auf.
    Diese sind aber für ein Backup auch rel. uninteressant.

    Neu

    Moin moin

    So habe meine Klasse für das durchsuchen nun fertig.
    Einmal gemacht für meine Freundin, die hat einen Laptop mit nur einer SSD und einer Partition. Also ein "Standart-Windows 10". ;)

    Einmal für mich selbst, wo ich zusätzlich eine weitere HDD habe wo meine Daten liegen. :)

    Spoiler anzeigen
    ​
    Aufruf der Class:

    VB.NET-Quellcode

    1. ​
    2. ' Für das User-Directory
    3. CalcSourceSize.StartSearch()
    4. CalcSourceSize.AnalyzeDirectories(EnvAeraInstance.CurrentUserPath)
    6. ' Für eine Festpaltte fals vorhanden
    7. CalcSourceSize.StartSearch()
    8. CalcSourceSize.AnalyzeDirectories(EnvAeraInstance.SourceDrive)


    VB.NET-Quellcode

    1. ​
    2. Public Class DirectoryAnalyzer
    3. ' Eine private, statische Instanz der Klasse, um das Singleton-Muster zu implementieren
    4. Private Shared ReadOnly _instance As New DirectoryAnalyzer()
    6. ' Öffentliche Eigenschaft zum Zugriff auf die Singleton-Instanz
    7. Public Shared ReadOnly Property Instance As DirectoryAnalyzer
    8. Get
    9. Return _instance
    10. End Get
    11. End Property
    13. ' Klasse für den Zugriff auf die Umgebungsinformationen
    14. Private ReadOnly EnvAeraInstance As EnvironmentAera = EnvironmentAera.Instance
    15. ' Instanz des Suchberichts
    16. Private ReadOnly Reporter As ReporterAnalyse = ReporterAnalyse.Instance
    17. ' Instanz der HelperTools
    18. Private ReadOnly Helpertools As FileHelpers = FileHelpers.Instance
    19. ' Aktuelles Verzeichnis
    20. Private Property CurrentDirectory As DirectoryInfo
    21. ' Liste der Dateien
    22. Private ReadOnly FileList As New List(Of String)()
    23. ' Zähler für Ordner, Dateien und Gesamtgröße
    24. Public Property DirectoryCount As Integer = 0
    25. Public Property FileCount As Integer = 0
    26. Public Property TotalBytes As Long = 0
    27. ' Setzen der Startzeit
    28. Public Property StartTime As DateTime = DateTime.Now
    29. ' Flag um den Report anzuzeigen
    30. Public Property ShowReport As Boolean = False
    31. ' Flags für den Abbruch der Analyse
    32. Public Property CancelAnalyse As Boolean = False
    33. Private CancelFlag As Integer = 0
    35. ' Event für die GUI
    36. Public Event CurrentTotalbytes(totalsize As Long)
    38. ''' <summary>
    39. ''' Schreibt die Startzeit des Suchprozesses in den Bericht.
    40. ''' </summary>
    41. Public Sub StartSearch()
    42. Reporter.DeleteReportfile()
    43. StartTime = DateTime.Now
    44. Reporter.WriteToLogFile($"Suche gestartet: {StartTime}")
    45. End Sub
    47. ''' <summary>
    48. ''' Schreibt die Stopzeit und die Dauer des Suchprozesses in den Bericht.
    49. ''' </summary>
    50. Public Sub StopSearch()
    51. Dim stopTime As DateTime = DateTime.Now
    52. Dim elapsedTime As TimeSpan = stopTime - StartTime
    53. Dim formattedElapsedTime As String = elapsedTime.ToString("hh\:mm\:ss")
    54. Reporter.WriteToLogFile($"Suche beendet: {stopTime}{Environment.NewLine}Suchdauer: {formattedElapsedTime}{Environment.NewLine}")
    55. End Sub
    57. ''' <summary>
    58. ''' Setzt die Zähler zurück und löscht den vorherigen Suchbericht.
    59. ''' </summary>
    60. Public Sub ResetValues()
    61. FileList.Clear()
    62. DirectoryCount = 0
    63. FileCount = 0
    64. TotalBytes = 0
    65. End Sub
    67. ''' <summary>
    68. ''' Schreibt die Analyseergebnisse in den Suchbericht.
    69. ''' </summary>
    70. Private Sub WriteResultsToReport()
    71. RaiseEvent CurrentTotalbytes(TotalBytes)
    72. Dim readableSize As String = Helpertools.ConvertBytesToReadableSize(TotalBytes)
    73. Reporter.WriteToLogFile($"Gesamtgröße: {readableSize}")
    74. Reporter.WriteToLogFile($"Anzahl Verzeichnisse: {DirectoryCount}")
    75. Reporter.WriteToLogFile($"Anzahl Dateien: {FileCount}")
    76. End Sub
    78. ''' <summary>
    79. ''' Analysiert die Verzeichnisse eines Laufwerks und zählt Ordner, Dateien und deren Größe,
    80. ''' und listet diese in der Reporter-Datei auf.
    81. ''' </summary>
    82. Public Sub AnalyzeDirectories(searchDrive As String)
    83. ' Zurücksetzen der Werte
    84. ResetValues()
    85. StartSearch()
    87. ' Stack für die Verzeichnisse, die durchlaufen werden sollen
    88. Dim directories As New Stack(Of DirectoryInfo)()
    89. directories.Push(New DirectoryInfo(searchDrive))
    91. ' Durchlaufen des Laufwerks und Zählen der Ordner, Dateien und Bytes
    92. Dim isFirstDirectory As Boolean = True
    93. While directories.Count > 0
    95. ' Abbrechen der Analyse
    96. If CancelAnalyse Then
    97. SendCancelMessage()
    98. Exit While
    99. End If
    101. CurrentDirectory = directories.Pop()
    102. If isFirstDirectory Then
    103. Reporter.WriteToLogFile($"Stammverzeichnis: [{CurrentDirectory.FullName}]{Environment.NewLine}")
    104. isFirstDirectory = False
    105. Else
    106. Reporter.WriteToLogFile($"Verzeichnis: {CurrentDirectory.FullName}")
    107. DirectoryCount += 1
    108. End If
    109. ProcessDirectory(CurrentDirectory, directories)
    110. End While
    112. ' Ergebnisse in den Suchbericht schreiben
    113. WriteResultsToReport()
    114. StopSearch()
    115. ShowReportDialog()
    116. End Sub
    118. ''' <summary>
    119. ''' Verarbeitet ein einzelnes Verzeichnis und fügt seine Unterverzeichnisse zum Stack hinzu.
    120. ''' </summary>
    121. Private Sub ProcessDirectory(directory As DirectoryInfo, directories As Stack(Of DirectoryInfo))
    122. ' Abbrechen der Analyse
    123. If CancelAnalyse Then
    124. SendCancelMessage()
    125. Exit Sub
    126. End If
    127. Try
    128. ' Dateien im aktuellen Verzeichnis zählen und ihre Größe summieren
    129. For Each file As FileInfo In directory.GetFiles()
    130. If IsValidFile(file) Then
    131. ProcessFile(file)
    132. End If
    133. Next
    135. ' Unterverzeichnisse in den Stack hinzufügen
    136. For Each subDir As DirectoryInfo In directory.GetDirectories()
    137. If IsValidDirectory(subDir) Then
    138. directories.Push(subDir)
    139. End If
    140. Next
    141. Catch ex As Exception
    142. HandleException(ex, directory.FullName)
    143. End Try
    144. End Sub
    146. ''' <summary>
    147. ''' Nur einen Eintrag in den Reporter schreiben
    148. ''' </summary>
    149. Private Sub SendCancelMessage()
    150. If CancelFlag < 1 Then
    151. Debug.WriteLine($"Analyse abgebrochen")
    152. Reporter.WriteToLogFile($"Analyse durch Benutzer abgebrochen!")
    153. CancelFlag += 1
    154. End If
    155. End Sub
    157. ''' <summary>
    158. ''' Überprüft, ob die Datei gültig ist (nicht versteckt und kein Systemattribut).
    159. ''' </summary>
    160. Private Function IsValidFile(file As FileInfo) As Boolean
    161. Return (file.Attributes And FileAttributes.Hidden) <> FileAttributes.Hidden AndAlso (file.Attributes And FileAttributes.System) <> FileAttributes.System
    162. End Function
    164. ''' <summary>
    165. ''' Verarbeitet eine einzelne Datei, indem sie gezählt und ihre Größe summiert wird,
    166. ''' und in der Reporter-Datei aufgelistet wird.
    167. ''' </summary>
    168. Private Sub ProcessFile(file As FileInfo)
    169. Try
    170. FileCount += 1
    171. TotalBytes += file.Length
    172. 'Debug.WriteLine($"Datei: {file.FullName}")
    173. Reporter.WriteToLogFile($" Datei: {file.FullName}")
    174. Catch ex As Exception
    175. HandleException(ex, file.FullName)
    176. End Try
    177. End Sub
    179. ''' <summary>
    180. ''' Überprüft, ob das Verzeichnis gültig ist (nicht versteckt und kein Systemattribut).
    181. ''' </summary>
    182. Private Function IsValidDirectory(directory As DirectoryInfo) As Boolean
    183. Return (directory.Attributes And FileAttributes.Hidden) <> FileAttributes.Hidden AndAlso (directory.Attributes And FileAttributes.System) <> FileAttributes.System
    184. End Function
    186. ''' <summary>
    187. ''' Behandelt Ausnahmen und schreibt die Fehlermeldung in das Debug-Protokoll.
    188. ''' </summary>
    189. Private Sub HandleException(ex As Exception, path As String)
    190. Debug.WriteLine($"Fehler bei {path}:{Environment.NewLine}{ex.Message}")
    191. End Sub
    193. ''' <summary>
    194. ''' Behandelt die Messagebox für den Analyse-Report.
    195. ''' </summary>
    196. Private Sub ShowReportDialog()
    197. If ShowReport Then
    198. ' Dialog anzeigen, um den Benutzer zu fragen, ob der Report aufgerufen werden soll
    199. Dim result As DialogResult = MessageBox.Show("Möchten Sie den Analyse-Report aufrufen?", "Analyse-Report", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    201. If result = DialogResult.Yes Then
    202. OpenReport()
    203. End If
    204. End If
    205. End Sub
    207. ''' <summary>
    208. ''' Öffnet die Textdatei mit dem Analyse-Protokoll.
    209. ''' </summary>
    210. Private Sub OpenReport()
    211. ' Bestimmen des Dateipfads
    212. Dim logFilePath As String = Path.Combine(EnvAeraInstance.AppDataPath, "AnalyseReporter.txt")
    213. ' Öffnen der Event-Log-Datei mit dem Standardprogramm
    214. System.Diagnostics.Process.Start(logFilePath)
    215. End Sub
    217. End Class


    Auszug aus dem Reporter:

    XML-Quellcode

    1. ​
    2. Suche gestartet: 06.06.2024 19:30:04
    3. Stammverzeichnis: [D:\]
    5. Verzeichnis: D:\Dakota
    6. Datei: D:\Dakota\0008-13_1200.jpg
    7. Datei: D:\Dakota\0012-01_1200.jpg
    8. Datei: D:\Dakota\0012-19_1200.jpg
    9. Datei: D:\Dakota\0012-20_1200.jpg
    10. Verzeichnis: D:\CCacert
    11. Datei: D:\CCacert\750_0016.zip
    12. Verzeichnis: D:\CCacert\Bücher
    13. .......
    14. ....
    15. .

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh: