ごみ箱を操作する
ごみ箱を操作するサンプルです。
サンプルの実行画面

ソースコード
[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
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte