![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になります
ゴミ箱に送るステートメントをウェブからコピーして使ってみましたが
ゴミ箱に送られず、「このファイルを完全に削除しますか?」というメッセージが出てしまいます
コピーしたステートメントの内容が分からず、どこが不備なのか分かりません
申し訳ございませんが、分かりましたら教えてください
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)はファイル名です
以上、よろしくお願い申し上げます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
ファイル名に ” を使うと エク...
-
バッチファイルで、iniファイル...
-
コマンドプロンプトでファイル...
-
[DOS] コピー先に同じファイル...
-
ファイル名を変更して移動させ...
-
バッチコマンドでファイル名の...
-
DOSのバッチ作成について‐FORの...
-
フォルダ内の更新日時が一番新...
-
ファイル名を複数の変数に分割...
-
バッチにて複数のcsvファイルを...
-
コマンドプロンプトで変数が数...
-
aタグのhrefにネットワークパス...
-
AIX kshスクリプトのtar+compre...
-
エクセルVBAを使用してJPGファ...
-
バッチファイルで配列を使いたい
-
.batでファイル名から抽出して...
-
コマンドプロンプトのエラーに...
-
【Excel】Powerクエリーの取り...
-
大量のフォルダからひとつのフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトでファイル...
-
コマンドプロンプトで変数が数...
-
ftp処理でmove(移動)を行いたい
-
バッチファイルで、iniファイル...
-
[DOS] コピー先に同じファイル...
-
バッチコマンドでファイル名の...
-
ExcelVBAのDirでスペース含むフ...
-
フォルダ内の更新日時が一番新...
-
.batでファイル名から抽出して...
-
サブフォルダからファイルをコ...
-
access,vbaでフォルダ内のファ...
-
ファイル名に ” を使うと エク...
-
DOSのバッチ作成について‐FORの...
-
VBA GetAttrについて教えてくだ...
-
【vbs】ファイル名の検索と該当...
-
word VBA ファイル名 保存
-
【DOSバッチ開発】末尾のタブの...
-
【バッチファイル】forコマンド...
-
バッチにて複数のcsvファイルを...
おすすめ情報