You can retrieve the parent directory from a path by identifying the first and last backslash. The start position for the first backslash should be 3 in order for it to handle UNC paths. By skipping the last character, the path may or may not include an ending backslash.
Public Function ParentPath(Path As String) As String
Dim Last As Long
Dim First As Long
Last = InStrRev(Path,
Digg
del.icio.us
Newvine
furl
StumbleUpon
BlinkList
Newsvine
Magnolia
Facebook
Tailrank
Slashdot
Technorati
Google Bookmarks
Yahoo Favorites
Windows Live
Ask
