求助--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 进程也不能关闭弹窗

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

aloha20200628

试试以下 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();

复制代码