批处理脚本打开当前目录或使用 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

但是这个 sn-p 只允许在我触发它时打开基本的“计算机”路径作为初始目录，而我需要将我的当前目录（正在执行脚本的目录）作为初始目录当文件选择被触发时。

有人可以通过 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 扩展保存并运行 - 将使用当前目录。

在this question 中还有另一个batch-powershell hybrid by rojo 也适用于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

Source