Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" ( _ ByVal pszRootPath As String, _ pSHQueryRBInfo As SHQUERYRBINFO) As Long
В случае ошибки функция возвращает код ошибки, отличный от нуля. В успешном случае функция возвратит 0
' Отобразим число элементов в Корзине на диске C: ' и размер корзины Dim rbinfo As SHQUERYRBINFO ' информация о Корзине Dim retval As Long ' возвращаемое значение ' Инициализируем размер структуры rbinfo.cbSize = Len(rbinfo) ' узнаем содержимое корзины на C: retval = SHQueryRecycleBin("C:\", rbinfo) ' Отобразим число элементов в Корзине, если значение ' в пределах чисел, поддерживаемых Visual Basic If (rbinfo.i64NumItems.LowPart And &H80000000) = &H80000000 Or rbinfo.i64NumItems.HighPart > 0 Then Debug.Print "Корзина содержит более 2 миллиардов элементов" Else Debug.Print "Корзина содержит"; rbinfo.i64NumItems.LowPart; "элементов." End If ' количестов байтов в Корзине If (rbinfo.i64Size.LowPart And &H80000000) = &H80000000 Or rbinfo.i64Size.HighPart > 0 Then Debug.Print "Корзина содержит более 2 гигабайт" Else Debug.Print "Корзина содержит"; rbinfo.i64Size.LowPart; "байт" End If