批处理脚本使用powershell / vbscrpt命令打开当前目录或选择的目录

Question

我有以下批处理脚本打开文件选择对话框，我需要从中获取所选文件的名称和路径(我的操作系统Windows 7 64Bit(：

@echo off
setlocal
> "%temp%fileSelectorDialog.vbs" (
echo DIM objFile
echo Set objShell = CreateObject^( "Shell.Application" ^)
echo Do
echo Set objFile = objShell.BrowseForFolder^(0,"Select a file",^&H4000,""^)
echo on error resume next
echo if objFile.Items.Item.Path = Null OR objFile is nothing OR err.number ^<^> 0 then
echo wscript.echo "ERROR"
echo wscript.quit
echo end if
echo wscript.echo objFile.ParentFolder.ParseName^(objFile.Title^).path
echo if instr^(objFile.items.item.path,"."^)^>0 then
echo wscript.echo objFile.Items.Item.Path
echo wscript.quit
echo end if
echo Msgbox "Please try again to choose a file rather than a folder. " ^& objFile.items.item.path
echo Loop
)
set file=ERROR
for /f "tokens=*" %%a in ('cscript //nologo "%temp%fileSelectorDialog.vbs"') do set file=%%a
if "%file%"=="ERROR" (
echo There was an error or you cancelled
) ELSE (
echo Path chosen was %file%
)
pause

但是这个代码片段只允许在我触发它时打开基本的"计算机"路径作为初始目录，而我需要在触发文件选择时将我的当前目录(正在执行脚本的目录(作为初始目录。

有人可以通过Vbscript/Jscript或Powershell帮助我实现这一目标吗？

Answer 1

一个批处理 - 不使用临时文件的 PowerShell 混合文件。
此批处理需要比 Win7 提供的 PsV2 更新的 PowerShell 版本。

<# : batch portion (begins with PowerShell multi-line comment block)
:: from rojo/npocmaka http://stackoverflow.com/a/41195176/1683264
@echo off & setlocal
Set "InitialDir=%CD%"
Echo InitialDir=%InitialDir%
For /f "delims=" %%A in (
'powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"'
) Do Set "File=%%A
Echo You selected file %file%
Pause
Exit /b 
: ---------------- end batch / begin PowerShell hybrid  --------------------#>
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") | Out-Null
$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$OpenFileDialog.initialDirectory = $Env:initialDir
#$OpenFileDialog.filter = "Text (*.txt) | *.txt | All Files| *.*"
$OpenFileDialog.ShowDialog() | Out-Null
$OpenFileDialog.filename

使用.bat或.cmd扩展名保存并运行 - 将使用当前目录。

在这个问题中，rojo还有另一个批处理Powershell混合体，它也适用于PowerrShell V2。

---

Rob van der woude 提供了vbscript的工作解决方案，但请注意，这是页面下方的最后一个版本。

Answer 2

尝试将"17^"替换为"，如下所示：

:: echo Set objFile = objShell.BrowseForFolder^(0,"Select a file",^&H4000,"")

Answer 3

看看下面的 VBScript 示例：

Option Explicit
Dim sIniDir, sFilter, sTitle, sShowInTaskBar
 
sIniDir = "C:*"
sFilter = "All files (*.*)|*.*|Microsoft Word (*.doc;*.docx)|*.doc;*.docx"
sTitle = "GetFileDlg"
sShowInTaskBar = "yes"
MsgBox GetFileDlg(sIniDir, sFilter, sTitle, sShowInTaskBar)
Function GetFileDlg(sIniDir, sFilter, sTitle, sShow)
    ' source http://forum.script-coding.com/viewtopic.php?pid=75356#p75356
    Dim sSignature, oShellWnd, oWnd, oProc
    sSignature = Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
    Set oProc = CreateObject("WScript.Shell").Exec("mshta ""about:<script>moveTo(-32000,-32000);document.title=' '</script><object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><object id=s classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>s.putproperty('" & sSignature & "',document.parentWindow);function q(i,f,t){return d.object.openfiledlg(i,null,f,t)};</script><hta:application showintaskbar=" & sShow & "/>""")
    On Error Resume Next
    Do
        If oProc.Status > 0 Then
            GetFileDlg = ""
            Exit Function
        End If
        For Each oShellWnd In CreateObject("Shell.Application").Windows
            Err.Clear
            Set oWnd = oShellWnd.GetProperty(sSignature)
            If Err.Number = 0 Then Exit Do
        Next
    Loop
    On Error GoTo 0
    oWnd.Document.Title = sTitle
    GetFileDlg = oWnd.q(sIniDir, sFilter, sTitle)
    oWnd.Close
End Function

源