Option Explicit

'declare api procedures
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" _
(lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Long

'declare constants
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40

'declare udt's
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

Public Sub RecycleFile(FileSpec As String)
On Error Resume Next

'initialize variable
Dim SHFileOp As SHFILEOPSTRUCT

'configure file operation
With SHFileOp
'...specify `Delete` operation
.wFunc = FO_DELETE

'...specify the file
.pFrom = FileSpec

'...specify send to recycle bin
.fFlags = FOF_ALLOWUNDO
End With

'perform file operation
SHFileOperation SHFileOp

'update recycle bin icon
SHUpdateRecycleBinIcon
End Sub
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。