If you have the item you can work out the folder path.
Option Explicit
Sub GetItemsFolderPath()
' http://vboffice.net/sample.html?lang...5&cmd=showitem
Dim obj As Object
Dim F As Folder
Dim Msg As String
Set obj = ActiveWindow
If TypeOf obj Is Inspector Then
Set obj = obj.currentItem
Else
Set obj = obj.Selection(1)
End If
Set F = obj.Parent
Msg = "The path is: " & F.FolderPath & vbCrLf
Msg = Msg & "Switch to the folder?"
If MsgBox(Msg, vbYesNo) = vbYes Then
Set ActiveExplorer.CurrentFolder = F
End If
End Sub