excel - 杀死回收站中的选定文件

Question

我正在构建一个清除工具，用于列出和销毁(使用 Kill)用户 PC 上某些位置的任何文件。我的工具在除回收站 (C:\$Recycle.Bin) 之外的所有位置都运行良好。

我收到以下错误:

Run-time error '75': Path/File access error

我怎样才能设法绕过这个错误来删除/杀死回收站中的文件？我不想清空整个回收站。我想删除选定的文件。

Answer 1

您首先需要访问真正的回收站文件夹。这是一个系统文件夹，可以通过 NameSpace 访问-Shell.Application 的方法-目的。您需要向此方法传递一个数字(我找到了一个列表 here )，对于回收站，它是 &HA& (称为比特桶)

当你有文件夹时，你可以遍历其中的项目，只需注意它可能包含文件和文件夹，你必须区分。您可以使用 FileSystemObject删除您想要的文件/文件夹。

Sub RemoveFromRecyleBin()

    Const BITBUCKET = &HA&

    Dim sh As Object, folder as Object, fso As Object
    Set sh = CreateObject("Shell.Application")
    Set folder = sh.Namespace(BITBUCKET)
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim item As Object
    For Each item In folder.Items
        Debug.Print item.Type, item.Name, item.Path

        If InStr(item.Name, "Junk") Then  ' Replace by your own logic
            If item.IsFolder Then
                fso.DeleteFolder item.Path
            Else
                fso.DeleteFile item.Path
            End If
        End If
    Next
End Sub