Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60020 / 76732 ←次へ | 前へ→

【21364】ゴミ箱へ Re:フォルダ内の .txtファイルを全て削除したい
発言  りすりす  - 05/1/20(木) 0:10 -

引用なし
パスワード
   ▼りすりす さん:
>ゴミ箱へ移動、作っていますので、できたら追加でアップしますね。

使い方、
SendToRecycleBin (FullFileName)

' こいつで消すと
' メニュー元に戻すが機能しない
' ゴミ箱で選択して右クリックメニューで元に戻すはできる
' 普通になにかファイルを削除をすると メニューでも選択できるみたい。
' この辺は謎です。


' SHFileOpStruct Module

Type SHFileOpStruct
   hWnd         As Long
   wFunc         As Long
   pFrom         As String
   pTo          As String
   fFlags        As Long
   fAnyOperationsAborted As Long
   hNameMappings     As Long
   lpszProgressTitle   As String
End Type
  
Const FO_MOVE = &H1
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_RENAME = &H4
Const FOF_MULTIDESTFILES = &H1
Const FOF_CONFIRMMOUSE = &H2
Const FOF_SILENT = &H4
Const FOF_RENAMEONCOLLISION = &H8
Const FOF_NOCONFIRMATION = &H10
Const FOF_WANTMAPPINGHANDLE = &H20
Const FOF_ALLOWUNDO = &H40
Const FOF_FILESONLY = &H80
Const FOF_SIMPLEPROGRESS = &H100
Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_NOERRORUI = &H400
 
Declare Function SHFileOperation Lib "shell32" _
    Alias "SHFileOperationA" _
    (lpFileOp As SHFileOpStruct) As Long

Declare Function GetActiveWindow Lib "user32" () As Long

Public Sub SendToRecycleBin(ByVal FileName As String)
 Dim SHF As SHFileOpStruct
 With SHF
   .hWnd = GetActiveWindow
   .wFunc = FO_DELETE ' 削除する
   .pFrom = FileName
  ' .fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION ' ゴミ箱へ:確認なし
   .fFlags = FOF_ALLOWUNDO + FOF_SILENT ' ゴミ箱へ:確認付き
   .lpszProgressTitle = String(1, vbNull)
   .pTo = String(1, vbNull)
 End With
 Call SHFileOperation(SHF)
End Sub

0 hits

【21341】フォルダ内の .txtファイルを全て削除したい VBAトーシロ 05/1/19(水) 15:14 質問
【21343】Re:フォルダ内の .txtファイルを全て削除... G-Luck 05/1/19(水) 15:29 回答
【21344】Re:フォルダ内の .txtファイルを全て削除... Jaka 05/1/19(水) 15:36 回答
【21354】Re:フォルダ内の .txtファイルを全て削除... VBAトーシロ 05/1/19(水) 21:58 発言
【21370】Re:フォルダ内の .txtファイルを全て削除... G-Luck 05/1/20(木) 9:39 回答
【21417】Re:フォルダ内の .txtファイルを全て削除... VBAトーシロ 05/1/20(木) 21:23 お礼
【21356】Re:フォルダ内の .txtファイルを全て削除... りすりす 05/1/19(水) 22:30 発言
【21364】ゴミ箱へ Re:フォルダ内の .txtファイルを... りすりす 05/1/20(木) 0:10 発言
【21360】Re:フォルダ内の .txtファイルを全て削除... [名前なし] 05/1/19(水) 23:13 回答
【21362】Re:フォルダ内の .txtファイルを全て削除... りすりす 05/1/19(水) 23:28 発言
【21363】Re:フォルダ内の .txtファイルを全て削除... ちゃっぴ 05/1/19(水) 23:47 回答
【21368】Re:フォルダ内の .txtファイルを全て削除... ichinose 05/1/20(木) 8:44 発言
【21369】Re:フォルダ内の .txtファイルを全て削除... Jaka 05/1/20(木) 9:10 回答
【21422】Re:フォルダ内の .txtファイルを全て削除... りすりす 05/1/20(木) 22:10 回答

60020 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free