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

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

czjt1234

好象有个com对象可以限制的扩展名的，但是记不得了

要不你检查扩展名不对就返回重新选择，循环

y6383289

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

jyswjjgdwtdtj

方案1
用回2000或xp 有系统自带的com组件
方案2
用vbs调用vba（极其复杂）
方案3
在js里加判断循环
方案5
用vbs调用ie

<input type=file accept=".xls"/>
复制代码

方案4
用ps .net库里没有我倒立吃屎
总之不用bat咋都方便

czjt1234

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
复制代码

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "VBS File|*.vbs"
复制代码

找了2个com对象，可惜在win7x64中均测试失败

y6383289

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

jyswjjgdwtdtj

嗯 突然想起来之前做过一个

//jscript or javascript
//ie

function getvbsfilepath(){
return new ActiveXObject("excel.application").GetOpenFileName("VBScript Files (*.vbs *.vbe),*.vbs;*.vbe",1,"打开VBScript脚本文件")
}
function savevbsfilepath(filename){
return new ActiveXObject("excel.application").GetSaveAsFilename(filename,"VBScript Files (*.vbs *.vbe),*.vbs;*.vbe",1,"另存为VBScript脚本文件")
}
复制代码

调用excel的原生方法 即vba里的application对象
所以不用安装vba 有wps或office就行

@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:<script>new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('excel.application').GetOpenFileName('VBScript Files (*.vbs *.vbe),*.vbs;*.vbe',1,'打开VBScript脚本文件'));close();</script>"') do set %~1="%%a"
if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
Title ★★★★★ %~n0  ★★★★★
goto :eof
复制代码

y6383289

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

jyswjjgdwtdtj

回复 8# y6383289


    我这里不会呀 不过之前也遇到这个问题 不知道怎么解决

czjt1234

试试那个修改cmd窗口大小和位置的啥命令的，mode还是啥的

aloha20200628

如果mshta脚本采用ie10+引擎新增的html5功能，即可令用户品尝到‘文件类型筛选’和‘文件多选’等诸多美餐...
以下代码中显式指定ie10引擎版本，否则mshta默认采用ie7。input标签中的属性multiple和accept分别对应‘文件多选’和‘文件类型’两个选项，如要文件单选，删除multiple即可。

<!-- :
@echo off
for /f "delims=" %%F in ('mshta "%~f0" ') do (echo,%%F)
pause&exit/b
 -->
<meta http-equiv="x-ua-compatible" content="ie=10">
<input type=file id=f multiple accept=".txt,.bat,.cmd,.hta,.js,.vbs">
<script>
   f.click();
   new ActiveXObject('scripting.filesystemobject').getstandardstream(1).write(f.value ? f.value : '');
   close();
</script>
复制代码

y6383289

mode 改变窗口大小

y6383289

能否改为调用形式？

y6383289

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

能否改为调用形式

y6383289

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

mode 改变窗口大小