DocumentPropertyMenu: Select file when opening from context menu

GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb

@@ -99,8 +99,13 @@ Public Class DocumentPropertyMenu
             Exit Sub
         End If
 
-        Dim oDirectory = IO.Path.GetDirectoryName(_FilePath)
-        Process.Start(oDirectory)
+        Dim oArgs As String = $"/e, /select, ""{_FilePath}"""
+        Dim oInfo As New ProcessStartInfo() With {
+            .Arguments = oArgs,
+            .FileName = "explorer"
+        }
+
+        Process.Start(oInfo)
     End Sub
 
     Private Function TestPathExists(Title As String) As Boolean