问与答5：如何使用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介绍的相关资料。如果只是想在必要时使用这些代码，则只需将上述代码复制到自已的代码模块中，作一些微小调整即可。

 

--------------------------------------

 

如果您对本文介绍的内容有什么建议或好的示例，欢迎发送邮件给我：[e-mail]

也可以在本文下面发表留言，留下您的足迹。

本文属原创文章，转载请联系我或者注明出处。

 

关注《完美Excel》微信公众账号：