Comment extraire un nom de repertoire en fonction de son chemin?

bonjour,
je suis tout nouveau sur VBA, je n y connais RIEN mais, je souhaite m'y interesser.

je souhaite extraire un ou des nom(s) de répertoire(s) en fonction d'un path donné pour les visualiser dans d'autres case de mon document.

j ai une base de code.




Dim iRow

Sub ListFiles()
iRow = 11
Call ListMyFiles(Range("B4"), Range("D6"))
End Sub

Sub ListMyFiles(mySourcePath, Subfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each MyFile In mySource.Files
iCol = 2
'Cells(iRow, iCol).Value = MyFile.path'
iCol = iCol + 1
Cells(iRow, iCol).Value = MyFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = MyFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = MyFile.DateLastModified
iRow = iRow + 1
Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.Subfolders
Call ListMyFiles(mySubFolder.Path, True)
Next
End If
End Sub



et mon sourcepath est sous cette forme:


S:\**1**\**2**\**3**\**4**\**5**

je liste donc dans mon tableau, tout ce qui est dan **5**
mais ce que je veux voir apparaître dans mon document , sont les informations 3 et 5. pas au meme endroit bien evidement (ce serais trop facile!)

merci pour vos futur contributions.