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

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

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

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

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

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