如何删除文件到回收站？

Question

新建工程，在窗体中加入一下代码就可以了！
Option Explicit
    Private 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   Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long    '两个重要的参数值设定
     Private Const FO_DELETE = &H3 '删除文件
     Private Const FOF_ALLOWUNDO = &H40 '允许恢复  '　2 在窗体中加一命令按钮Command1，双击之，写如下代码：    '此处用来删除c:\temp.txt文件。
    Private Sub Command1_Click()
    Dim FileOperation As SHFILEOPSTRUCT
   Dim lReturn As Long
   Dim sTempFileName As String
     sTempFileName = "c:\temp.txt"
     With FileOperation
     .wFunc = FO_DELETE
     .pFrom = sTempFileName
     .fFlags = FOF_ALLOWUNDO
     End With
     lReturn = SHFileOperation(FileOperation)
    End Sub