[文件操作] 批处理如何调用/弹出文件或文件夹选择对话框

懒得勤快

求助大神，用批处理如何调用资源管理器来选择文件或文件夹并将所选择的文件夹或者文件的路径赋值到批处理中，选择了文件夹或者文件后，能够将与之对应的路径捕捉到批处理代码中给后面的程序使用

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

yunyan100

回复 4# pcl_test


    版主好,能一个窗口,打开后可以进行文件夹和指定文件(如exe)选择么?谢谢

pcl_test

回复 5# yunyan100

试试

yunyan100

回复 6# pcl_test


    非常感谢,我试下先我发过一条我自己作的bat的功能码,因为在这学的,现在正在完善和功能改进,所以不好意思又要来请教你了,谢谢

yunyan100

回复 6# pcl_test

有点不对,这个没有显示出来,是这样的,是打开一个窗口,在里面可以显示我指定格式(如*.exe文件),也有文件夹,所以就是想能选择显示的文件和文件夹,目前我用的是选择文件夹,然后批处理里才来选择是否是文件还是文件夹,所以想有个可以一次选择是文件或者文件夹
你上面一个代码是文件夹,一个是文件,所以能否合到一起,且文件那里只显示指定格式的文件(如*.exe文件),第三小工具也成,因为是返回批处理的

pcl_test

回复 8# yunyan100

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

yunyan100

回复 9# pcl_test


不好意思,其实就是调用系统的选择窗口也可是第三方小软件(同时支持选择文件(设置的格式)和文件夹),目前基本是文件和文件分开的,我曾经用过一个软件,在选择它能加工的内容时
一个对话框可以选择指定的文件和文件夹,因为选择文件就一个,如果选择文件夹,后面的操作就是批量将文件夹里的指定文件操作
下面这个是我在网上收集的选择文件的,可以指定,就是想这种的同时也可以选择文件夹,以前有用了一软件的对话框,当我选择文件夹时,下面那个打开就变成了选择,即为同时可以选择文件和文件夹,

@echo off
setlocal
for /f "delims=" %%I in ('powershell -noprofile "iex (${%~f0} | out-string)"') do (
    echo You chose %%~I
)
pause
goto :EOF

: end Batch portion / begin PowerShell hybrid chimera #>
Add-Type -AssemblyName System.Windows.Forms
$f = new-object Windows.Forms.OpenFileDialog
$f.InitialDirectory = pwd
$f.Filter = "Exe文件 (*.exe)|*.exe"
$f.ShowHelp = $true
$f.Multiselect = $true
[void]$f.ShowDialog()
if ($f.Multiselect) { $f.FileNames } else { $f.FileName }
复制代码

pcl_test

回复 10# yunyan100

已做了兼容处理

yunyan100

回复 11# pcl_test

    首先感谢 你的回复,还是有错,
win10x64错误
xp错误
我在win7里测试,可以选择指定的文件,如exe,文件夹(只支持指定目录下这级,不支持向下, 不过这个不算大问题了)也可以了,谢谢,我用win10了,可否支持?
我测试过用管理员权限,win10还是这个错误提示,

yunyan100

回复 11# pcl_test


    首先感谢你的帮助,win10的错误还是和之前一样,用了兼容模式也是提示那样,xp我装了net2.0可以了

pcl_test

回复 13# yunyan100

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

ivor

代码转载于网络
批处理取返回值：

@echo off
set pscmdline='powershell.exe -file E:\python\ps.ps1'
rem 取返回值%%a
for /f %%a in (%pscmdline%) do (echo %%a)
复制代码

powershell

function Select-FolderDialog
{
	param([string]$Directory,[string]$Description,[boolean]$ShowNewFolderButton)
	[System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") | Out-Null
	$objForm = New-Object System.Windows.Forms.FolderBrowserDialog
	$objForm.RootFolder = $Directory
	$objForm.Description = $Description
	$objForm.ShowNewFolderButton = $ShowNewFolderButton
	$Show = $objForm.ShowDialog()
	If ($Show -eq "OK")
	{
		#确定按钮代码块
		Return $objForm.SelectedPath
	}
	Else
	{
		#需要输出错误信息的话可以取消下一行的注释
		#取消按钮代码块
		#Write-Error "error information here"
	}
}
$folder_path = Select-FolderDialog -Directory "Desktop" -Description "提示语句" -ShowNewFolderButton $true
#$folder_path 为选择路径
return $folder_path
复制代码