If you need to get the parent directory of a given path to a file or a directory, the following function might help.

Not the best performance I have to admit since it is relying on String operations.

Source Code

' @Author - Alexander Bolte
' @ChangeDate - 2015-02-10
' @Description - Returns the path to a parent directory for a handed path.
' @Param path - a String providing a path to a directory or a file.
' @Returns a String providing a path to a parent directory including the
' last path delimiter. If an error occurs, an empty String is returned.
Function getParentDirectoryPath(path) ' As String
  Dim dirPath ' As String
  Dim splitted ' As String
  Dim i ' As Integer

  On Error Resume Next

  dirPath = ""
  splitted = split(path, "\")
  For i = lBound(splitted) To uBound(splitted) - 1
     dirPath = dirPath & splitted(i) & "\"
  Next

  If Err.Number <> 0 Then
     dirPath = ""
     Err.Clear
  End If

  getParentDirectoryPath = dirPath
End Function