无忧启动论坛

标题: 加了两行删除文件的语句，前面打开文件的执行就变了。（已解决） [打印本页]

作者: 窄口牛 时间: 2023-2-27 10:15
标题: 加了两行删除文件的语句，前面打开文件的执行就变了。（已解决）
本帖最后由窄口牛于 2023-2-27 13:34 编辑

Set wShell = CreateObject("WScript.Shell")
Set oExec = wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
File_Selected = oExec.StdOut.ReadLine
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" """& File_Selected &""""
'Dim fso
'Set fso=CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(""& File_Selected &"")

复制代码

浏览器打开选择的文本文件（比如htm），加两句删除这个文件的语句，前面执行结果就变了，变成打开了主页，是这么个情况，有治否？

作者: 879792799 时间: 2023-2-27 10:59
帮顶！

作者: 2010techon 时间: 2023-2-27 11:16
删除浏览器正在打开的文件？
这逻辑就有问题吧。。。

作者: 窄口牛 时间: 2023-2-27 12:06
文本文件载入以后就能删除了。

作者: 9zhmke 时间: 2023-2-27 12:21
是不是应该有延时再删除？还没显示出来就就删除掉容易出问题...

作者: 窄口牛 时间: 2023-2-27 13:15
本帖最后由窄口牛于 2023-2-27 13:17 编辑

加了句延时可以了。可之前的运行结果是没打开，删除了。就没往延时方向考虑。

作者: yyz2191958 时间: 2023-2-27 14:48
恭喜恭喜问题解决

作者: syzcz 时间: 2023-2-27 20:07
感谢楼主分享啊

作者: ZMLoveLH 时间: 2023-3-6 16:36
恭喜楼主解决问题，我这个菜鸟学到了很多啊

作者: yyz2191958 时间: 2023-3-6 17:06
恭喜恭喜问题解决

作者: panyf14 时间: 2023-3-6 19:40
学习学习

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)