弹出文件夹选择框
@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>
实例
转载:http://www.bathome.net/thread-34496-1-2.html