VBA如何删除一个文件的，放到回收站里？

'声明
Option Compare Database
Option Explicit

Public 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 Long
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Public Const HWND_DESKTOP = 0
Public Const NOCONFIRMATION = &H10  '不提示
Function DeleteFiles(Path As String)    '定义删除文件函数
    Dim Shop As SHFILEOPSTRUCT
    With Shop
    .hwnd = HWND_DESKTOP
    .pTo = ""
    .wFunc = FO_DELETE
    .pFrom = Path + Chr(0)
    .fFlags = FOF_ALLOWUNDO + NOCONFIRMATION
    End With
    SHFileOperation Shop
End Function
Function a()    '调用
    DeleteFiles "E:\工作资料\3年经济指标.doc"
End Function
请复制到您的新建模块中。