加了两行删除文件的语句，前面打开文件的执行就变了。（已解决）

窄口牛

1. Set wShell = CreateObject("WScript.Shell")
   
2. 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>""")
   
3. File_Selected = oExec.StdOut.ReadLine
   
4. 
   
5. Dim WshShell
   
6. set WshShell = CreateObject("wscript.Shell")
   
7. WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" """& File_Selected &""""
   
8. 'Dim fso
   
9. 'Set fso=CreateObject("Scripting.FileSystemObject")
   
10. 'fso.DeleteFile(""& File_Selected &"")

复制代码

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

窄口牛

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

879792799

帮顶！

2010techon

删除浏览器正在打开的文件？
这逻辑就有问题吧。。。

窄口牛

文本文件载入以后就能删除了。

9zhmke

是不是应该有延时再删除？还没显示出来就就删除掉容易出问题...

yyz2191958

恭喜恭喜问题解决

syzcz

感谢楼主分享啊

ZMLoveLH

恭喜楼主解决问题，我这个菜鸟学到了很多啊

yyz2191958

恭喜恭喜问题解决

panyf14

学习学习