Sub ファイルをごみ箱へ移動せずに削除する()
    
    '削除したいファイルをフルパスで指定する
    削除したいファイル = "C:\test\test1.txt"
    
    '※注意※ゴミ箱へ移動せずに消滅します
    Kill 削除したいファイル
    
End Sub