pcl_test

回复 5# yu2n
可以转变下调用方式

@echo off
for /f "delims=" %%a in ('mshta "about:<input type=file id=f><script>f.click();(new ActiveXObject('Scripting.FileSystemObject')).GetStandardStream(1).Write(f.value);close();</script>"') do set "f=%%a"
echo;选择的文件是%f%
pause
复制代码

pcl_test

@echo off
for /f %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(inputbox("""",,""输入文件路径或文件名""))"^)(close^)') do set "f=%%a"
echo;%f%
pause
复制代码

pcl_test

回复 9# gd6570

7楼不是输入框？

pcl_test

回复 11# gd6570
弹出对话框，论坛一搜一堆
if not exist "%f%" msg * "不存在"

pcl_test

@echo off
rem 自定义输入框
for /f "delims=" %%a in ('mshta "about:<hta:application border=none showintaskbar=no /><input type=text id=t style='color:#FF0000;' value=输入文件路径或文件名 />&nbsp;<input type=button id=b value=确定 onclick=ck() />&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value=取消 onclick=window.close() /><script>window.resizeTo(300, 60);function ck(){(new ActiveXObject('Scripting.FileSystemObject')).GetStandardStream(1).Write(t.value);close();}</script>"') do set "f=%%a"
echo;%f%
pause
复制代码

pcl_test

回复 14# gd6570

cmd不认识你自创的语法