Y aquí lo que te ahorrará muchas líneas 
parentfolder se utiliza justo para lo que buscas, mostrar la carpeta dentro de la cual esta una carpeta o archivo
Saludos

Código (vb) [Seleccionar]
msgbox objfolder.parentfolder.self.path
parentfolder se utiliza justo para lo que buscas, mostrar la carpeta dentro de la cual esta una carpeta o archivo
Saludos