【已解决】求助--XP 下 删除文件进回收站代码 自动完成 【BAT VBS PY】

aloha20200628

czjt1234 发表于 2026-5-3 17:51

在 win8-11 系统实测 2 楼代码，均不需要 WSH.sleep 加持，手边没有 xp 系统复验，能确认以下是哪个 vbs 版本对 xp 真起作用？

版本一。

1. set sa=createobject("shell.application") : set v=wsh.arguments
   
2. if v.count=0 then wsh.quit
   
3. for each i in wsh.arguments
   
4.   sa.namespace(10).movehere v(i), 84
   
5. next
   
6. wsh.sleep 1000
   
7. wsh.quit

复制代码

版本二。

1. set sa=createobject("shell.application") : set v=wsh.arguments
   
2. if v.count=0 then wsh.quit
   
3. for each i in wsh.arguments
   
4.   sa.namespace(10).movehere v(i), 84
   
5.   wsh.sleep 1000
   
6. next
   
7. wsh.quit

复制代码

czjt1234

aloha20200628 发表于 2026-5-3 19:23
在 win8-11 系统实测 2 楼代码，均不需要 WSH.sleep 加持，手边没有 xp 系统复验，能确认以下是哪个 vbs  ...

都有效，所以只要最后加一个sleep就可以了

wzehu

czjt1234 发表于 2026-5-3 17:51

你这段代码很完美，既能自动删除123.txt，又能拖入文件删除进回收站。
    以前版块，这里是能加分的，现在没了。。
真的非常感谢你，我现在没有加好友权限，以前都可以的。。。

wzehu

aloha20200628 发表于 2026-5-3 19:23
在 win8-11 系统实测 2 楼代码，均不需要 WSH.sleep 加持，手边没有 xp 系统复验，能确认以下是哪个 vbs  ...

我刚在XP下分别试了好多回，试着把参数改成  
sa.namespace (10).movehere i,84  
版本一、版本二都顺利运行通过，全程没有出现任何报错。

77七

wzehu 发表于 2026-5-4 20:33
你这段代码很完美，既能自动删除123.txt，又能拖入文件删除进回收站。
    以前版块，这里是能加分的， ...

登录账号后，回复贴的评分在右下角，“举报”按钮旁边。

wzehu

77七 发表于 2026-5-5 17:13
登录账号后，回复贴的评分在右下角，“举报”按钮旁边。

到现在为此，此主题贴，在我主贴上只显示  15楼 ！！！
昨夜到刚才，还是只显示  15楼 ！甚至连我自己的回复帖都不可见


找到问题所在了，对新版不熟悉。点下一页才能看到。。。
                                      我是不是太菜鸟？？？     

我平时习惯了多数网页下滑自动翻页的浏览方式，没留意本站仍是传统手动分页模式，误以为是楼层显示异常了。

wzehu

czjt1234 发表于 2026-5-2 09:49
这个我在win7测试成功，但在winxp_professional_x86_sp3测试失败
加了以管理员权限运行也没用

  下面VBS代码运行时删除" "失败。
  但单用  ‘创建 或  ‘删除时。运行成功，两者都通过 。
  问题是 123.txt 占用，还是。。。？

1. 
   
2. s = "123.txt"
   
3. Set fso=CreateObject("Scripting.FileSystemObject")
   
4. Set Shell=CreateObject("Shell.Application")
   
5. strFile = FSO.GetAbsolutePathName(s)
   
6. 
   
7. If Not fso.FileExists(strFile) Then  fso.CreateTextFile strFile,True      ‘创建
   
8. 
   
9.   Shell.NameSpace(10).MoveHere strFile, 84                                  ‘删除
   
10. 
    
11. WScript.Quit
    
12. 
    

复制代码

########
   终于找到原因了：
  Shell.NameSpace(10).MoveHere strFile, 84                                  ‘删除   
  WScript.Sleep 1000                                       ‘ 等到 "123.txt"删除后再退出才能成功

  WScript.Quit                                 

77七

wzehu 发表于 2026-5-5 22:39
到现在为此，此主题贴，在我主贴上只显示  15楼 ！！！
昨夜到刚才，还是只显示  15楼 ！甚至连我自己的 ...

油桃脚本，可以实现自动翻页

wzehu

油桃不就是抓取网页增加右键菜单的小东东吗?