Ordnergrösse auslesen unterordner In begriffen

  • VB.NET

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von Manu67100.

    Kann man ganz einfach über die Projekteinstellungen. Weiß aber nicht ob es funktioniert.

    Zum Thema Recursion... Eine Rekursive Methode ist eine Methode die sich selbst aufruft.
    In deinem Fall ist dass genau das was du brauchen würdest. Schreib dir also eine Methode die als Parameter einen Pfad erwartet.Dann rufst du die Methode auf und übergibst ihr den Pfad zum Hauptordner, wenn sie durchgelaufen ist rufst du sie selbst mit neuem Pfad als Parameter auf.

    lg.

    LucaWelker
    lg.

    LucaWelker

    Openbook FTW

    du signierst deine Anwendungen und Dlls mit einem Zertifikat und mit der Signtool.exe.

    Vielen Dank :thumbsup:
    Also, Ich habe es geschaft eine recursive function die functioniert gecodet:
    Nur bei Documents and settings will er nicht :cursing: Aber nicht schlimm!

    VB.NET-Quellcode

    1. Public Shared Function OrdnergrosseRec(ByVal OrdnerPath As String) As Long
    3. Dim fileSize As Long = 0
    4. Dim directory As DirectoryInfo = New DirectoryInfo(OrdnerPath)
    5. For Each fileInfo As System.IO.FileInfo In directory.GetFiles()
    6. Try
    7. fileSize += fileInfo.Length
    8. Catch
    9. End Try
    10. Next
    11. For Each subFolder As System.IO.DirectoryInfo In directory.GetDirectories()
    12. Try
    13. fileSize += OrdnergrosseRec(subFolder.FullName)
    14. Catch
    15. End Try
    16. Next
    17. Return fileSize
    18. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manu67100“ ()

    Was erwartest du denn ... du arbeitest auf einem System UAC ;) ... aber wenigstens hast du das System von Rekursion verstanden ;)
    beim Ordnerdurchlauf reicht:

    VB.NET-Quellcode

    1. For Each subFolder As String In Directory.GetDirectories(OrdnerPath)
    2. Try
    3. fileSize += OrdnergrosseRec(subFolder)
    4. Catch
    5. End Try
    6. Next
    dann müssen keine Info-Klassen erstellt werden und geht schneller ;)

    sry ... ich meine mit Directory System.IO.Directory

    Lösung

    Nochmals Danke
    Hier Den überarbieteten code

    VB.NET-Quellcode

    1. Public Shared Function OrdnergrosseRec(ByVal OrdnerPath As String) As Long
    3. Dim fileSize As Long = 0
    4. Dim directory As DirectoryInfo = New DirectoryInfo(OrdnerPath)
    5. For Each fileInfo As System.IO.FileInfo In directory.GetFiles()
    6. Try
    7. fileSize += fileInfo.Length
    8. Catch
    9. End Try
    10. Next
    12. ' ############ Option 2 für den rest des codes #################
    14. ' For Each subFolder As System.IO.DirectoryInfo In directory.GetDirectories()
    15. 'Try
    16. 'fileSize += OrdnergrosseRec(subFolder.FullName)
    17. 'Catch
    18. 'End Try
    19. 'Next
    20. '#########Ende Option##############################
    22. For Each subFolder As String In System.IO.Directory.GetDirectories(OrdnerPath)
    23. Try
    24. fileSize += OrdnergrosseRec(subFolder)
    25. Catch
    26. End Try
    27. Next
    31. Return fileSize
    32. End Function

Facebook
Telefonspende