aloha20200628

给LZ的几点说明》
一。这是一个纯P与mshta代码混编的脚本，用扩展名.cmd或.bat存盘后使用。
二。文件编码选择系统默认的简中编码，如用记事本存盘则选择 ANSI 即可。
三。本贴11楼第3行代码就是在 for...in() 循环条件表达式中调用mshta脚本，实现从文件资源管理器中选择文件并获取其选择结果-即循环变量%%F。
四。设置文件选择类型，请修改第7行中的属性值 accept=".txt,.bat,.cmd,.hta,.js,.vbs"。
五。可在第2行和第4行之间加入使用者自己所需的纯P代码。

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

jyswjjgdwtdtj

再给你个最好的（或许吧） 你可以改成保存文件对话框

<script>window.resizeTo(0,0);window.onload=function(){try{new ActiveXObject('scripting.filesystemobject').GetStandardStream(1).Write(document.getElementById('hdh').object.openfiledlg('','','Text Files (*.txt)|*.txt|','select files'))}catch(err){};window.close()}</script><hta:application caption=no showintaskbar=no /><object id=hdh classid=CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object>
复制代码

在hta里能成功执行而且不会报错窗口一定能关的上