[文件操作] 请教批处理如何限制文件扩展名？

y6383289

@ECHO OFF
setlocal enabledelayedexpansion
call :File_Input "files" "输入文件"&& echo 输入文件=!输入文件!
echo Files=%files%
echo 调试结束&&pause&&exit


goto :eof

::**************************************************************
::       输入文件名称
::**************************************************************
:File_Input
Title ★★★★★ %~n0 %~2 ★★★★★
if "%2" NEQ "" set %~2=No
for /f "delims=" %%a in ('mshta "about:<input type=file id=file><script>file.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(file.value);close();</script>"') do set %~1="%%a"
if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
Title ★★★★★ %~n0  ★★★★★
goto :eof
复制代码

y6383289

不限制文件类型，可选文件件多了体验不好。懒

y6383289

只会点批处理,别的不会,

y6383289

非常感谢，代码可用。但有点美中不足，文件选择窗口在批处理下面，能设置到最前面吗?

y6383289

mode 改变窗口大小

y6383289

能否改为调用形式？

y6383289

如果mshta脚本采用ie10+引擎新增的html5功能，即可令用户品尝到‘文件类型筛选’和‘文件多选’等诸多美餐 ...
aloha20200628 发表于 2023-6-5 14:13

能否改为调用形式

y6383289

试试那个修改cmd窗口大小和位置的啥命令的，mode还是啥的
czjt1234 发表于 2023-6-4 08:44

mode 改变窗口大小

y6383289

给LZ的几点说明》
一。这是一个纯P与mshta代码混编的脚本，用扩展名.cmd或.bat存盘后使用。
二。文件编 ...
aloha20200628 发表于 2023-6-10 19:20

    对mshta代码了解不多。可否帮忙改为调用形式？非常感谢！！！

@ECHO OFF
setlocal enabledelayedexpansion
call :File_Input "files" "输入文件"&& echo 输入文件=!输入文件!
echo Files=%files%
echo 调试结束&&pause&&exit


goto :eof

::**************************************************************
::       输入文件名称
::**************************************************************
:File_Input
Title ★★★★★ %~n0 %~2 ★★★★★
if "%2" NEQ "" set %~2=No


代码区

set %~1=路径及文件


if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
Title ★★★★★ %~n0  ★★★★★
goto :eof