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