Feedback

VB - Anzahl der Dateien und deren Größe im Papierkorb auslesen

Veröffentlicht von am 28.02.2007
(1 Bewertungen)
Ermöglicht zum einen die Anzahl der im Papierkorb befindlichen Dateien, als auch deren Gesamtgröße zu efahren.

Aufruf zb mit:
GetBinsData("C:")
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

	Private Declare Function SHQueryRecycleBin Lib "shell32.dll"  Alias "SHQueryRecycleBinA"(ByVal pszRootPath As String, ByRef pSHQueryRBInfo As SHQUERYRBINFO) As Integer
	
	Private Structure ULARGE_INTEGER
		Dim Lo As Integer
		Dim Hi As Integer
	End Structure
	
	Private Structure SHQUERYRBINFO
		Dim cbSize As Integer
		Dim i64Size As ULARGE_INTEGER
		Dim i64NumItems As ULARGE_INTEGER
	End Structure


    Private Sub GetBinsData(ByRef rbPath As String)
        Dim i As Short
        Dim RB As SHQUERYRBINFO
        Dim size As Integer
        Dim files As Integer

        RB.cbSize = Len(RB)

        If Len(rbPath) = 0 Then
            For i = Asc("A") To Asc("Z")
                Call SHQueryRecycleBin(Chr(i) & ":", RB)
                size = size + RB.i64Size.Lo \ 1024
                files = files + RB.i64NumItems.Lo
            Next i
            Label1.Text = CStr(files)
            Label2.Text = Format(size \ 1024, "###,###,### kB")
        Else
            Call SHQueryRecycleBin(rbPath, RB)

            Label1.Text = CStr(RB.i64NumItems.Lo)
            Label2.Text = Format(RB.i64Size.Lo \ 1024, "###,###,### kB")
        End If

    End Sub



Abgelegt unter papierkorb.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!