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