批处理之家 - Powered by Discuz! Board

标题: [文件操作] 批处理怎样拖入html，打开它（任何默认浏览器即可）然后马上删除它？ [打印本页]

作者: 窄口牛 时间: 2023-2-23 10:14 标题: 批处理怎样拖入html，打开它（任何默认浏览器即可）然后马上删除它？

鼓捣了几个小时，没搞定。

作者: Batcher 时间: 2023-2-23 17:18

回复 1# 窄口牛

请把你尝试过的代码发出来看看？顺便说说报错信息是啥

作者: 窄口牛 时间: 2023-2-23 18:18

本帖最后由窄口牛于 2023-2-23 18:22 编辑

start “” "C:\Program Files\Internet Explorer\iexplore.exe" “%1”&&del %1
path=%path%;C:\Program Files\Internet Explorer\iexplore.exe
start "" iexplore %1&&del %1

作者: 窄口牛 时间: 2023-2-23 18:25

@echo off
for /f "delims=" %%a in ('mshta "%~f0"') do （
start “” "C:\Program Files\Internet Explorer\iexplore.exe" %%a&&del %%a
）

-->

<input type=file id=f>
<script>
f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value);close();
</script>

作者: 窄口牛 时间: 2023-2-23 23:06

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 &"")

作者: 窄口牛 时间: 2023-2-23 23:07

能打开文件了，但是加上删除就又打不开了。

欢迎光临批处理之家 (http://bbs.bathome.net/)