VisualBasic Ausnahme für (in For Each) Directory.GetFiles

[drmiu]

Hi Leute,

hab mir aus langeweile einen kleinen Code zusammengeschustert, mit dem ich Statistisch schauen kann, wie groß ein Ordner ist und wie die spezifischen Prozentualen Anteile der Größen aller direkten Unterordner verteilt sind.

Diese Funktion ist schon fast das Herzstück meines Programmes.

Public Function OrdnerGröße(ByVal _Pfad As String)

        Dim FolderSize As Long = 0
        Try
            For Each Datei As String In Directory.GetFiles(_Pfad, "*.*", SearchOption.AllDirectories)
                If Not _Pfad.Contains("$") Or Not System.Security.Permissions.FileIOPermissionAccess.NoAccess Then
                    FolderSize += New FileInfo(Datei).Length
                Else
                    lbl_success.Text = "Es wurden Warnungen gefunden..."
                End If
            Next Datei
        Catch ex As Exception
(nichts... bis jetzt)
        End Try
        Return FolderSize
    End Function

Jetzt hat das alles nur noch ein Problem... Wie behandele ich die Ordner richtig, damit ich bei einer (Security) Exception den Ordner einfach überspringen kann?


Ich hoffe ihr könnt mir helfen


edit: 2. Problem ist schon gelöst, einfach
return temp.tostring("N2") + " MiB"

 

[Hancock]

Pack das try-catch in die Schleife, dann wird der Ordner einfach übersprungen.

 

[drmiu]

Funktioniert nicht, der meckert ja schon bei:

For Each Datei As String In Directory.GetFiles(_Pfad, "*.*", SearchOption.AllDirectories)

 

[Hancock]

Dann mach's mal nicht mit den Holzhammer SearchAllSubDirectories sondern mit SearchTopLevelOnly+Rekursion+GetDirectories.