ファイルをゴミ箱に送る【Shell.Application × ExcelVBA】

使う為の準備　参照設定 Microsoft Shell Controls And Automation

WindowsOSに標準である機能 →Windowsのシェルオブジェクトを使用 Shell.Application

'〇〇という文字でシェルアプリケーションを使用できるように Dim 〇〇 As New Shell32.Shell

自動コード補完機能が有効なので事前バインディングしてます

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Public Sub Sample()

'シェルという文字でシェルアプリケーションを使用できる準備
Dim シェル As New Shell32.Shell

'ゴミ箱に指定したアイテムを移動する
シェル.Namespace(10).MoveHere "C:\Users\zats_\Desktop\sample\ゴミ.txt"

'長さ０の文字列ではない間ループ（つまりファイルがある間）
Do While Dir("C:\Users\zats_\Desktop\sample\ゴミ.txt") <> ""
Loop

End Sub