pcl_test

回复 1# 懒得勤快

借助第三方工具

pcl_test

文件选择框

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

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

pcl_test

文件夹选择框

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

pcl_test

回复 5# yunyan100

试试

pcl_test

回复 8# yunyan100

没懂你要的效果
一个窗口按选择，即可作为文件选择对话框也可作为文件夹选择对话框？

pcl_test

回复 10# yunyan100

已做了兼容处理

pcl_test

回复 13# yunyan100

expl.exe.config里删除<supportedRuntime version="v2.0.50727"/>

pcl_test

回复 16# yunyan100

xp和win7不需要config文件，win8/win10才需要，如果要统一使用config文件，   将2.0和4.0那两行调换一下顺序