ファイルの削除でゴミ箱に送りたい

いつもお世話になります

ゴミ箱に送るステートメントをウェブからコピーして使ってみましたが
ゴミ箱に送られず、「このファイルを完全に削除しますか？」というメッセージが出てしまいます
コピーしたステートメントの内容が分からず、どこが不備なのか分かりません
申し訳ございませんが、分かりましたら教えてください

Option Explicit
''ごみ箱に送るためのAPI
Private Declare Function SHFileOperation Lib "shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long

''SHFileOperation関数に渡すユーザー定義型
Private Type SHFILEOPSTRUCT
hwnd As Long ''ウィンドウハンドル
wFunc As Long ''実行する操作
pFrom As String ''対象ファイル名
pTo As String ''目的ファイル名
fFlags As Integer ''フラグ
fAnyOperationsAborted As Long ''結果
hNameMappings As Long ''ファイル名マッピングオブジェクト
lpszProgressTitle As String ''ダイアログのタイトル
End Type

Private Const FO_DELETE = &H3 ''削除する
Private Const FOF_ALLOWUNDO = &H40 ''ごみ箱に送る

Sub main()

Dim i As Integer
Dim check As Long
Dim SH As SHFILEOPSTRUCT, re As Long, Target As String

Book2.Activate

i = 0
Worksheets("Sheet1").Activate
Do
i = i + 1
If Cells(i, 1) = "" Then Exit Do

Target = Cells(i, 2) & "\" & Cells(i, 1)
With SH
.hwnd = Application.hwnd
.wFunc = FO_DELETE
.pFrom = Target
.fFlags = FOF_ALLOWUNDO
End With
re = SHFileOperation(SH)
If re <> 0 Then MsgBox "削除に失敗しました", vbExclamation
Loop

ちなみにCells(i,2)はパス名、Cells(i,1)はファイル名です

以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： zab_28258 回答日時： 2018/05/08 14:07

＞「このファイルを完全に削除しますか？」

削除ファイルが大きすぎた場合、ＯＳから出るの警告メッセージでは？

この回答へのお礼

すみません、ありがとうございます
今、同僚と話していて自分の間違いに気付きました

自分のマシンに割り当てたネットワークドライブ上のファイル削除をテストしていました。
多分ローカル上ではうまく行くと思います

早速のご回答に心から感謝します
これからもよろしくお願い申し上げます

お礼日時：2018/05/08 14:49