打开资源管理器，最大化聚焦并突出显示Access VBA中的文件

Question

我正在尝试打开W​​indows资源管理器并突出显示一个文件。

我正在使用：

Private Sub cmdLoadStl_Click()
Dim shellCmd As String
shellCmd = "explorer.exe /select, """ & Me.txtPath & """,vbMaximizedFocus"
Debug.Print shellCmd
Shell (shellCmd)
End Sub

除了窗口打开最小化之外，这可以按预期工作。

我在运行Access 2016和两台Win10机器的几台Win7机器上试过这个，一台运行Access 2013，另一台运行Access 2016.

有没有办法让窗口打开最大化？

编辑：更多信息 - 如果我将我的代码中由debug.print生成的命令粘贴到命令提示符并运行它，则资源管理器窗口将打开最大化，文件突出显示，应该如此。

从vba生成的命令如下所示。

explorer.exe /select, "C:\Users\user\Desktop\filename.txt",vbMaximized

感谢。

Answer 1

试试这样：

shellCmd = "explorer.exe /select, """  & """,vbMaximizedFocus
shell shellcmd,vbMaximizedFocus

shell的第二个（可选）算法是焦点。 vbMaximizedFocus最大限度地打开它：