７７．ごみ箱の情報を取得する

＜　使用用途　＞
ごみ箱の情報を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のSHQueryRecycleBin を使用します
SHQueryRecycleBin　＝＞ごみ箱の情報を取得する
　　＜引数＞
　　　　pszRootPath：ドライブを指定（""はすべて　"C:\"はCドライブ）
　　　　pSHQueryRBInfo：SHQUERYRBINFO構造体
　　＠戻り値＠
　　　　正常終了0　　　 　　　

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long

Public Type SHQUERYRBINFO
　　Size As Long
　　nFileSize As Currency
　　nFile As Currency
End Type

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　Dim Gomi As SHQUERYRBINFO
　Dim nDrive As String
　Dim Ret As Long
　Dim nSize As Currency
　Dim nCount As Currency

　　Gomi.Size = Len(Gomi)
　　nDrive = ""

　　'nDriveのごみ情報を取得
　　Ret = SHQueryRecycleBin(nDrive, Gomi)

　　nSize = Gomi.nFileSize * 10000
　　nCount = Gomi.nFile * 10000
　　Label1.Caption = "サイズ " & nSize & " バイト" & Chr(13) & _
　　　　　　　　　　　　　 "ファイル数 " & nCount & " 個"

End Sub