Sub フォルダ内の全ファイルをごみ箱へ削除()
    
    フォルダの場所 = "C:\test\"

    削除ファイル = Dir(フォルダの場所 & "*.*")
    
    Do While 削除ファイル <> "" '削除ファイルがなくなるまで繰り返す
        
        'ごみ箱へ移動する
        CreateObject("Shell.Application").Namespace(10).MoveHere フォルダの場所 & 削除ファイル
        
        Application.Wait Now + TimeValue("0:00:01") 'エラー回避のため1秒待つ
        
        削除ファイル = Dir() '次の削除ファイルを取得
        
    Loop
    
End Sub