Lister repertoire avec un listview

Private Sub ButtonSelectDossier_Click() 'récupère le nom du répertoire sélectionné
Dim objShell As Object, objFolder As Object, oFolderItem As Object, Chemin As String
'Set objShell = CreateObject("Shell.Application")
'Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
'Set oFolderItem = objFolder.Items.Item
'Chemin = oFolderItem.Path
Chemin = "C:\"
If Chemin > "" Then ElementsRepertoire Chemin
End Sub

Private Sub ButtonSelectDossier_Click() 'récupère le nom du répertoire sélectionné
Dim objShell As Object, objFolder As Object, oFolderItem As Object, Chemin As String
Set objShell = CreateObject("Shell.Application")
   
'===============================================================================
Dim ouvrirSous As Variant
ouvrirSous = "C:\" 'Ou "C:\toto"
Set objFolder = objShell.BrowseForFolder(0, "Choisir un répertoire", 0, ouvrirSous)
'===============================================================================

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
If Chemin > "" Then ElementsRepertoire Chemin
End Sub

Private Sub ButtonSelectDossier_Click()  'récupère le nom du répertoire sélectionné
  Dim objShell As Object, objFolder As Object, oFolderItem As Object, Chemin As String
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
  Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
  If objFolder.Title = "Bureau" Then
    Chemin = "C:\Windows\Bureau"
  End If
  If objFolder.Title = "" Then
    Chemin = ""
  End If
  SecuriteSlash = InStr(objFolder.Title, ":")
  If SecuriteSlash > 0 Then
    Chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
  End If
  If Chemin > "" Then ElementsRepertoire Chemin
End Sub