yu2n

回复 4# gd6570

下面是弹出一个文件选择框，并返回选择路径的方法：

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