删除指定文件夹下的指定类型文件到回收站

dzsrmyh

网上找了一代码，可以删除指定文件夹下的指定类型文件，可这是彻底删除了，可以通过vba代码删除指定文件夹下的指定类型文件到回收站吗？

1. Sub mydel()
   
2.     Dim fs As Object
   
3.     Set fs = CreateObject("scripting.filesystemobject")
   
4.     On Error Resume Next
   
5.     fs.deletefile "D:\Test\*.txt"
   
6.     fs.deleteFolder "D:\Test\*.*"
   
7. End Sub

复制代码

dzsrmyh

删除到回收站这个功能可以实现吗？

wanghan519

网上搜到这句，试了一下确实删到回收站了，但只是相当于右键点了删除，不知道这样操作稳定不稳定

改写成vba应该是createobject("shell.application")，然后调用它的方法

1. $a=New-Object -ComObject shell.application
   
2. $a.NameSpace(0).ParseName("D:\a.txt").invokeVerb("delete")

复制代码

dzsrmyh

wanghan519 发表于 2023-3-19 10:51
网上搜到这句，试了一下确实删到回收站了，但只是相当于右键点了删除，不知道这样操作稳定不稳定

改写成 ...

老师你好，能上传下附件吗？我没有弄正确

wanghan519

vba不熟悉，请小心测试

dzsrmyh

wanghan519 发表于 2023-3-20 04:17
vba不熟悉，请小心测试

1. Public Sub t()
   
2.     Dim sa As Object
   
3.     Set sa = CreateObject("shell.application")
   
4.     Dim n$
   
5.     n = Dir(ThisWorkbook.Path & "\*.txt")
   
6.     While Len(n) <> 0
   
7.         sa.Namespace(0).ParseName(ThisWorkbook.Path & "" & n).invokeVerb "delete"
   
8.         n = Dir
   
9.     Wend
   
10. End Sub

复制代码

如何修改为删除指定目录（D:\桌面\)的txt文件

wanghan519

dzsrmyh 发表于 2023-3-29 10:56
如何修改为删除指定目录（D:\桌面\)的txt文件

没测试，大概是这样