using System;
using System.Runtime.InteropServices;

class QueryRecycleBin
{
    [DllImport( "shell32.dll", CharSet = CharSet.Auto )]
    internal static extern uint SHQueryRecycleBin(
        string pszRootPath,
        [MarshalAs( UnmanagedType.Struct )]ref LPSHQUERYRBINFO pSHQueryRBInfo );

    [StructLayout( LayoutKind.Sequential, Pack = 4 )]
    internal struct LPSHQUERYRBINFO
    {
        public uint cbSize;
        public ulong i64Size;
        public ulong i64NumItems;
    }

    internal const uint S_OK = 0;

    /// <summary>
    /// アプリケーションのメイン エントリ ポイントです。
    /// </summary>
    [STAThread]
    static void Main(string[] args)
    {
        LPSHQUERYRBINFO info;
        uint result;

        foreach ( string drive in Environment.GetLogicalDrives() )
        {
            info = new LPSHQUERYRBINFO();
            info.cbSize = (uint)Marshal.SizeOf( info );

            result = SHQueryRecycleBin( drive, ref info );

            Console.Write( "{0}ドライブ / ", drive[0] );

            if ( result == S_OK ) 
            {
                Console.WriteLine( "ファイル: {0:0} 個、サイズ: {1:###,###,##0} Bytes", info.i64NumItems, info.i64Size );
            }
            else
            {
                Console.WriteLine( "取得できませんでした。" );
            }
        }
    }
}

Imports System
Imports System.Runtime.InteropServices

Class QueryRecycleBin

    <DllImport("shell32.dll", CharSet:=CharSet.Auto)> _
    Friend Shared Function SHQueryRecycleBin( _
        ByVal pszRootPath As String, _
        <MarshalAs(UnmanagedType.Struct)> ByRef pSHQueryRBInfo As LPSHQUERYRBINFO) _
        As Integer
    End Function

    <StructLayout(LayoutKind.Sequential, Pack:=4)> _
    Friend Structure LPSHQUERYRBINFO

        Public cbSize As Integer
        Public i64Size As Long
        Public i64NumItems As Long

    End Structure

    Friend Const S_OK As Integer = 0

    ''' <summary>
    ''' アプリケーションのメイン エントリ ポイントです。
    ''' </summary>
    Shared Sub Main(ByVal args As String())

        Dim info As LPSHQUERYRBINFO
        Dim result As Integer

        For Each drive As String In Environment.GetLogicalDrives()

            info = New LPSHQUERYRBINFO
            info.cbSize = Marshal.SizeOf(info)

            result = SHQueryRecycleBin(drive, info)

            Console.Write("{0}ドライブ / ", drive.Chars(0))

            If result = S_OK Then

                Console.WriteLine("ファイル: {0:0} 個、サイズ: {1:###,###,##0} Bytes", info.i64NumItems, info.i64Size)

            Else

                Console.WriteLine("取得できませんでした。")

            End If

        Next

    End Sub

End Class