加了两行删除文件的语句,前面打开文件的执行就变了。(已解决)
本帖最后由 窄口牛 于 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),加两句删除这个文件的语句,前面执行结果就变了,变成打开了主页,是这么个情况,有治否? 本帖最后由 窄口牛 于 2023-2-27 13:17 编辑
加了句延时可以了。可之前的运行结果是没打开,删除了。就没往延时方向考虑。 帮顶!{:1_186:} 删除浏览器正在打开的文件?
这逻辑就有问题吧。。。 文本文件载入以后就能删除了。 是不是应该有延时再删除?还没显示出来就就删除掉容易出问题... 恭喜恭喜问题解决 感谢楼主分享啊 恭喜楼主解决问题,我这个菜鸟学到了很多啊 恭喜恭喜问题解决 学习学习
页:
[1]