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

wzehu

在 XP 系统中：
         1，BAT CMD  没有 删除文件进回收站命令，只能物理删除。
         2， XP下Python3.4.4  依赖第三方库。
               send2trash和winshell 不能自动捕获确认弹窗。甚至不适配XP
         3， VBS 有删除文件进回收站方法，但会弹出确认窗口。

               下面代码无法自动关闭弹窗：
                     代码功能：先新建123.txt ，随后删除123.txt 到回收站。
                VBS-1
               
Set fso = CreateObject("Scripting.FileSystemObject")
strFile = "123.txt"

If fso.FileExists(strFile) Then
    Set shell = CreateObject("Shell.Application")
    Set folder = shell.NameSpace(fso.GetParentFolderName(fso.GetAbsolutePathName(strFile)))
    Set file = folder.ParseName(fso.GetFileName(strFile))
    file.InvokeVerb "delete"
End If

                VBS-2

strFile = "123.txt"
Set Ws = CreateObject("WScript.Shell")
Set sh=CreateObject("Shell.Application")
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(strFile) Then fso.CreateTextFile strFile,True
Set fd=sh.NameSpace(fso.GetParentFolderName(fso.GetAbsolutePathName(strFile))).ParseName(strFile)
fd.InvokeVerb "delete"

WScript.Sleep 200
Ws.AppActivate("确认文件删除"):Ws.SendKeys "{ENTER}"

’Ws.Run "taskkill /f /im WScript.exe",0
即使杀掉WScript.exe 进程也不能关闭弹窗

                                                                            求大佬指点迷津。拜托 致谢！

============================================================
   
【已解决】:   sa.namespace(10).movehere v(i), 84

   致谢 好友:  @aloha20200628         @czjt1234

aloha20200628

一楼的 vbs 代码可简化如下

test.vbs

1. set sa=createobject("shell.application") : set f="c:\test\123.txt"
   
2. sa.namespace(10).movehere f, 84

复制代码

再试试以下的 jscript 代码，存为 test.js
用法》从资源管理器选择一个或多个文件（目录）拖拽给 test.js 文件，即可把所选文件目录移入回收站。

test.js

1. v=WSH.arguments, sa=WSH.createObject("Shell.Application");
   
2. if (v.length==0) WSH.quit();
   
3. for (i=0,l=v.length; i<l; i++) sa.Namespace(10).MoveHere(v(i), 84);
   
4. WSH.quit();

复制代码

czjt1234

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"ShellState"=hex:24,00,00,00,37,a8,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,0d,00,00,00,00,00,00,00,02,00,00,00,

这是把回收站的属性，显示删除确认对话框，的勾去掉
实测导入后立即生效，不需要刷新桌面什么的

然后测试你一楼的vbs就可以了
你自己加个导入注册表

如果需要可以删除后再恢复注册表

wzehu

czjt1234 发表于 2026-5-1 15:48
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"ShellState"=hex:24,00,00,00, ...

在回收站右键就能设置 不弹出确认对话框
修改回收站属性后,原代码 不用点确认了,也能正常删除文件进回收站.
每次运行原代码前后就修改回收站属性一次太麻烦了,比点 确认 还不方便.
                                                                  谢谢网友参与.[玫瑰]

wzehu

czjt1234 发表于 2026-5-1 15:48
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"ShellState"=hex:24,00,00,00, ...

在回收站右键就能设置 不弹出确认对话框
修改回收站属性后,原代码 不用点确认了,也能正常删除文件进回收站.
每次运行原代码前后就修改回收站属性一次太麻烦了,比点 确认 还不方便.
                                                                  谢谢网友参与.[玫瑰]

wzehu

aloha20200628 发表于 2026-4-30 20:30
试试以下 jscript 代码，存为 test.js
用法》从资源管理器选择一个或多个文件（目录）拖拽给 test.js 文件 ...

回复 @aloha20200628

sa = WSH.CreateObject("Shell.Application");
sa.Namespace(10).MoveHere(".\\123.txt");

WSH.quit();

在XP 系统中 运行一次能 删除123.txt进回收站.
再一次运行就没反应了.不知什么原因...
     好友五.一快乐

77七

Sends files to the Recycle bin: Recyle v1.5
https://www.bathome.net/thread-2059-1-1.html
(出处: 批处理之家)

czjt1234

wzehu 发表于 2026-5-1 16:41
在回收站右键就能设置 不弹出确认对话框
修改回收站属性后,原代码 不用点确认了,也能正常删除文件进回收 ...

你不会设置自动导入注册表？

aloha20200628

wzehu 发表于 2026-5-1 16:55
回复 @aloha20200628

sa = WSH.CreateObject("Shell.Application");

一定要用第二个参数 84 （取消确认+取消进度显示+覆盖回收站已有重名项+允许撤销）或 92（取消确认+取消进度显示+遭遇重名会自动重命名+允许撤销），如下
   sa.Namespace(10).MoveHere("c:\\test\\123.txt"，84);
或
   sa.Namespace(10).MoveHere("c:\\test\\123.txt"，92);

Namespace(10).MoveHere 对不存在的文件目录会直接忽略...

czjt1234

aloha20200628 发表于 2026-4-30 20:30
一楼的 vbs 代码可简化如下

test.vbs

这个我在win7测试成功，但在winxp_professional_x86_sp3测试失败
加了以管理员权限运行也没用

zh-hans_windows_xp_professional_with_service_pack_3_x86_cd_vl_x14-74070.iso

czjt1234

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

找到原因了，加个延时就可以了
wsh.Sleep1000

wzehu

czjt1234 发表于 2026-5-2 09:55
找到原因了，加个延时就可以了
wsh.Sleep1000

你好，你能贴上能在XP SP3 运行的那段代码吗？
因 论坛改版我还不在适应，
好多功能都不会操作，
不能加好友，也不能发消息。

wzehu

czjt1234 发表于 2026-5-2 09:55
找到原因了，加个延时就可以了
wsh.Sleep1000

你好，你能贴上能在XP SP3 运行的那段代码吗？
因 论坛改版我还不在适应，
好多功能都不会操作，
不能加好友，也不能发消息。

wzehu

aloha20200628 发表于 2026-5-1 18:33
一定要用第二个参数 84 （取消确认+取消进度显示+覆盖回收站已有重名项+允许撤销）或 92（取消确认+取消 ...

我这还是第一次接触JS,也就两三天。
我发现XP 对WSH 不是很友好。
现在正在摸索中。。。
让好友见笑了。[害羞]

czjt1234

wzehu 发表于 2026-5-3 14:02
你好，你能贴上能在XP SP3 运行的那段代码吗？
因 论坛改版我还不在适应，
好多功能都不会操作，

1. Dim oFSO, oShell, oFolder, s, i
   
2. 
   
3. s = "123.txt"
   
4. 
   
5. Set oFSO = CreateObject("Scripting.FileSystemObject")
   
6. Set oShell = CreateObject("Shell.Application")
   
7. Set oFolder = oShell.NameSpace(10)
   
8. If wsh.Arguments.Count > 0 Then
   
9.     For Each i In wsh.Arguments
   
10.         Call del(i)
    
11.     Next
    
12. Else
    
13.     del s
    
14. End If
    
15. wsh.Sleep 1000
    
16. 
    
17. Sub del(s)
    
18.     s = oFSO.GetAbsolutePathName(s)
    
19.     oFolder.MoveHere s, 84
    
20. End Sub

复制代码