使用Access VBA打开资源管理器并最大化窗口并聚焦和突出显示文件

Question

我想打开Windows资源管理器并突出显示一个文件。

我的使用方法是：

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

这个代码的功能如期运行，但窗口是最小化的。我已经在几台安装了Access 2016的Win7机器和两台Win10机器上尝试过，其中一台运行Access 2013，另一台运行Access 2016。

有没有办法让窗口打开时自动最大化呢？

编辑：更多信息——如果我将Debug.Print生成的命令粘贴到我的代码中并在命令提示符中运行它，资源管理器窗口会像应该的那样最大化打开，并且高亮显示文件。

从VBA生成的命令看起来像这样。

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

谢谢。

- Barton

Answer 1

尝试这样做：

试试以下方法：

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

第二个（可选）算法是shell的重点。 vbMaximizedFocus将其最大化打开：

- Vityata