ホーム > カテゴリ > Visual Basic >

ごみ箱を操作する

ごみ箱を操作するサンプルです。

サンプルの実行画面

ソースコード

[RecycleBin.frm]

'ごみ箱を削除する
Private Declare Function SHEmptyRecycleBin Lib "shell32" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
'ごみ箱の情報を取得する
Private Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long

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

Private Sub Command1_Click()
    Dim Ret  As Long
    Dim Drive      As String

    
    'ドライブの種類設定(例：Drive = "C:\")
    Drive = "" '「""」は全て
        
    'ごみ箱を空にします
    Ret = SHEmptyRecycleBin(hwnd, Drive, 0)
     

End Sub

Private Sub Command2_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

ソースコード一式のダウンロード

vbapi_recyclebin.zip 1.05 KB (1,082 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：ファイルを移動する
次の記事：ファイルやフォルダを検索する

公開日：2015年03月04日
記事NO：00344