Opening your current working directory

I love simple ideas that can save time and hassle here and there. Here's one of them. I got fed up of navigating to my current working directory so built a shortcut to open it using the following:

Dim activeDoc As Document = revitApp.ActiveDocument

If activeDoc.PathName <> "" Then
Process.Start("explorer.exe", Replace(activeDoc.PathName, activeDoc.Title, ""))
End If

Just drop this into a class implementing IExternalCommand, call your dll from a menu item or button of your making, and hey presto life is soooo much better. One click and you're there.