Const RECYCLE_BIN = &Ha&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(RECYCLE_BIN)
Set objFolderItem = objFolder.Self
objFolderItem.InvokeVerbEx("Empty Recycle &Bin")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(RECYCLE_BIN)
Set objFolderItem = objFolder.Self
objFolderItem.InvokeVerbEx("Empty Recycle &Bin")

本文将介绍如何使用VBA脚本自动清理回收站,包括创建脚本、运行脚本和自动化操作步骤。
1820

被折叠的 条评论
为什么被折叠?



