Dim lStr As String = "c:\Test\Test1\Fichier.Extension" Dim lDossierNom As String=IO.Path.GetFileName(IO.Path.GetDirectoryName(lStr)) MessageBox.Show(lDossierNom) ' Affiche "Test1"
import os getParentFolder = lambda fh: os.path.abspath(os.path.join(os.path.normpath(fh),os.path.pardir))