Bat调用/弹出文件或文件夹选择对话框

zljhhg

已于 2023-03-17 13:31:26 修改

阅读量4.9k

点赞数

分类专栏： BAT Win10 文章标签： windows

于 2023-02-08 12:23:09 首次发布

原文链接：http://www.bathome.net/thread-34496-1-2.html

版权

Win10 同时被 2 个专栏收录

2 篇文章

订阅专栏

BAT

1 篇文章

订阅专栏

该文章提供了一种方法，通过VBS和JavaScript代码来创建弹出的文件和文件夹选择对话框。用户可以选择指定路径的文件或文件夹，选择结果通过脚本处理并显示出来。示例代码包括了如何利用WindowsShell对象实现这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

弹出文件夹选择框

@echo off
rem 弹出文件夹浏览选择对话框
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
(echo;Set sa=CreateObject^("Shell.Application"^)
echo;Set item=sa.Namespace^(0^).Self
echo;Set objfolder=sa.BrowseForFolder^(0, "Select a Folder:", 0, item.Path^)
echo;If objfolder Is Nothing Then
echo; WSH.Quit
echo;End If
echo;Set objitem=objfolder.Self
echo;WSH.echo objitem.Path)>"%tmp%\v.v"
for /f "delims=" %%a in ('cscript -nologo -e:vbscript "%tmp%\v.v"') do echo;"%%a"
echo;%#% +%$%%$%/%@% %z%
pause
exit

实例
在这里插入图片描述

文件选择框

<!-- :
@echo off
@SET sqlfile=D:\file
for /f "delims=" %%a in ('mshta "%~f0"') do  SET sqlfile=%%a
pause&exit /b
-->

<input type=file id=f>
<script>
f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value);close();
</script>

文件夹选择框

<!-- :
@echo off
for /f "delims=" %%a in ('mshta "%~f0"') do echo;%%a
pause&exit /b
-->

<script>
var Shell = new ActiveXObject("Shell.Application");
var Folder = Shell.BrowseForFolder(0, "请选择文件夹", 0); //起始目录为：桌面
if (Folder != null) {
    Folder = Folder.items();
    Folder = Folder.item();
    Folder = Folder.Path;
    new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(Folder);
}
close();
</script>