diff --git a/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb b/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb
index 0ae360ca..36adb5aa 100644
--- a/GUIs.Common/DocumentPropertyMenu/DocumentPropertyMenu.vb
+++ b/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