查看完整版本: 如何将文件删除到回收站

如何将文件删除到回收站

　　VB提供的Kill语句将文件直接彻底删除，而不是放到回收站中。
那么，如何将文件删除到回收站中呢？
下面就是答案：
Option Explicit
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_DELETE =