[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
aloha20200628

Rank: 5Rank: 5

帖子
356 
积分
612 
技术
81  
捐助
0  
注册时间
2021-10-13 
16楼 跳转到 »
发表于 2023-6-10 19:20 | 只看该作者

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

TOP

y6383289

Rank: 2

帖子
13 
积分
182 
技术
0  
捐助
0  
注册时间
2008-11-25 
17楼
发表于 2023-6-10 21:25 | 只看该作者
本帖最后由 y6383289 于 2023-6-10 21:31 编辑
给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

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
598 
积分
690 
技术
30  
捐助
0  
注册时间
2023-2-9 
18楼
发表于 2023-6-10 22:14 | 只看该作者
本帖最后由 jyswjjgdwtdtj 于 2023-6-10 22:22 编辑

再给你个最好的（或许吧） 你可以改成保存文件对话框
  1. <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里能成功执行而且不会报错窗口一定能关的上

TOP

12
返回列表