@echo off

echo ^> 请选择一个文件。
call :GetFile "F"
if not defined F (
	echo ^> 您没有选择文件。
) else (
	echo ^> 您选择的文件是：
	echo   %F%
)
pause
goto :eof

:GetFile
	(echo;^<html^>^<head^>^<title^>Browse^</title^>^</head^>^<body^>^
		^<input type='file' id='f' name='f'/^>^<script type='text/javascript'^>^
		f.click^(^);var shell = new ActiveXObject^('WScript.Shell'^);^
		var fso = new ActiveXObject^('Scripting.Filesystemobject'^);^
		fso.GetStandardStream^(1^).Write^(f.value^);window.close^(^);^
		^</script^>^</body^>^</html^>)>%tmp%\getFile.hta
	set "%~1="
	for /f "delims=" %%a in ('mshta %tmp%\getFile.hta') do set "%~1=%%~a"
	goto :eof
复制代码

@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
复制代码

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

@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
复制代码