如何使用VBA将文件或文件夹删除到回收站？

问：使用VBA代码，怎样将文件或者文件夹删除到回收站呢？

RmDir语句、Kill语句以及FileSystemObject中的语句都会把文件或文件夹彻底删除掉，没有回旋余地。

答：有点复杂，因为需要借助于WindowsAPI来实现。下面是代码：

'API声明

Declare FunctionSHFileOperation Lib "shell32.dll" Alias "SHFileOperationA"(lpFileOp As SHFILEOPSTRUCT) As Long

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

Sub RecycleFile()

Dim FileOperation As SHFILEOPSTRUCT

Dim lReturn As Long

Dim sFileName As String

'   Dim sFolder As String '声明代表要删除的文件夹字符串

sFileName = Application.GetOpenFilename(FileFilter:="Excel工作簿,*.xls*",Title:="选择要删除的文件")

Const FO_DELETE = &H3 '删除pFrom所指定的文件或目录

Const FOF_ALLOWUNDO = &H40 '可还原(若沒有FOF_ALLOWUNDO则不会放到回收站)

Const FOF_NOCONFIRMATION = &H10 '不显示对话框直接放到回收站

With FileOperation

.wFunc = FO_DELETE

.pFrom = sFileName

'.fFlags = FOF_ALLOWUNDO +FOF_NOCONFIRMATION '不显示对话框直接删除到回收站

.fFlags = FOF_ALLOWUNDO '显示对话框让用户决定是否删除到回收站

'.fFlags = FOF_NOCONFIRMATION '不显示对话框直接删除

End With

lReturn = SHFileOperation(FileOperation)

End Sub

如果要删除文件夹，可以设置变量sFolder为要删除的文件夹路径，然后将其赋值给pFrom。

上述代码运行后，会显示下图所示的对话框，提示你选择要删除的文件。

选取文件后，单击“打开”按钮，则会弹出如下图所示的对话框，单击“是”，则将所选文件删除到回收站。

在程序中，我们使用下面的语句来达到目的：

.fFlags = FOF_ALLOWUNDO '显示对话框让用户决定是否删除到回收站

如果希望不显示提示对话框，而直接将文件删除并放到回收站，则用下面的语句代替：

.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION '不显示对话框直接删除到回收站

如果希望不显示提示对话框，并彻底删除，而不放入回收站，则用下面的语句代替：

.fFlags = FOF_NOCONFIRMATION '不显示对话框直接删除

看起来有点复杂，如果想深入研究，可以参阅关于Windows API介绍的相关资料。如果只是想在必要时使用这些代码，则只需将上述代码复制到自已的代码模块中，作一些微小调整即可。