Lister repertoire avec un listview

[Regueiro]

Bonjour à tous.
J'ai télécharger ce magnifique fichier sur ce site.
Je ne sais plus de qui il est. Pardon.
Il marche très bien sur mon Pc
J'aimerais le modifier pour qu'il liste uniquement le C:\ ou C:\toto\
Je n'arrive pas à trouver le code.
Merci de votre Aide.
A+

 

[Papou-net]

Re : Lister repertoire avec un listview

Bonjour Reguiero,

Pas très élégant comme solution, mais il suffit juste de supprimer quelques lignes (je les ai mises en commentaires) dans la macro du bouton "Ouvrir un dossier", et d'indiquer le chemin désiré en toutes lettres.

Exemple :

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

Espérant avoir répondu.

Cordialement.

 

[Regueiro]

Re : Lister repertoire avec un listview

Bonjour Papou-net
Merci pour ta réponse c'est exactement ce que je voulais.
Comment faire pour indiquer les sous-répertoires ?

Pourquoi " Pas très élégant comme solution" ???
En fait, pour moi cela me simplifie la tâche.
Avec ça je n'ais pas besoin de sélectionnner :
- Bureau
- C:\toto\tata\titi\etc..
Merci encore de ta réponse.

 

[Hulk]

Re : Lister repertoire avec un listview

Hello Regueiro, Papou 🙂, Forum,

J'avais compris ceci...

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

Mais peut-être me trompe-je...

Bon week 😎

 

[Regueiro]

Re : Lister repertoire avec un listview

Bonjour Hulk et Papou-net
Hulk avec ton code il ne va pas ouvrir le répertoire C:\
et il n'y a pas les sous réperoire.

Le code de Papou-net marche mais il n'y a pas les sous-réperoire.

Merci
A+

 

[Papou-net]

Re : Lister repertoire avec un listview

RE :

En retirant la condition If...Then dans la boucle For Each strFileName...Next, ça affiche les répertoires, sauf les répertoires système de Windows : "Documents and Settings, System Volume Information ...)

Voir dans copie ci-jointe.

Cordialement.

PS : bonjour à toi, Hulk.

 

[Hulk]

Re : Lister repertoire avec un listview

Re,

Ai mal compris, au temps pour moi !

 

[Regueiro]

Re : Lister repertoire avec un listview

Merci
C'est parfait.
Je regarde encore pour des améliorations et je reviens.

Par exemple une textbox ou autre pour indiquer le nombre de fichier ou de dossier
et éventuellement des cases à cocher pour lister uniquement des fichiers *.* ou *.xls ou *.doc etc

Je suis preneur de toute amélioration
Merci
A+

 

[Regueiro]

Re : Lister repertoire avec un listview

Bonsoir à Tous
Hulk et Papou-net
J'ais travailler un peu sur mon fichier.
Lorsque je sélectionne mon répertoire
Les fichiers s'affichent OK
Les fichiers *.xls j'arrivent les ouvrir mais les fichiers *.xlsm impossible l'ordi rame pendant un moment
Pour ouvrir USF avec Listview aller sur le menu "Consulter BDD"

Je vous joint mon fichier.
Bonnes soirée
A+

 

[Regueiro]

Re : Lister repertoire avec un listview

Bonsoir le Forum.
Je n'arrive pas à trouver le code qui me permettrais d'ouvrir des fichiers *.xls ou *.xlsm
ou idéalement tout les fichiers ou Docx ou PDF
Fichier en PJ sur mon Post N° 9
Merci de votre aide.
A+

 

[Compte Supprimé 979]

Re : Lister repertoire avec un listview

Bonjour Regueiro,

Je n'ai pas tout suivi, mais pour le choix du dossier, il faut utiliser ce code

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

A+

 

[Regueiro]

Re : Lister repertoire avec un listview

Bonsoir le Forum
Pourriez-vous me donner une piste ( Voir mon Post 10 )
Merci à Vous
A+

 

[YANN-56]

Re : Lister repertoire avec un listview

Bonsoir Reguerio, Papou-net, Hulk, et à ceux qui passeront par là,

Voici un de mes vieux essais dont tu pourras peut-être tirer quelque chose.

J'ai éliminé ce qui me servait à chercher les doublons et les mettre à la corbeille.
(Il reste peut-être des codes inutiles)

Cela fonctionne chez moi; mais il n'est pas évident sous 2010..... A voir.

J'ai depuis modifié ma méthode de recherche sans.
"Application.FileDialog(msoFileDialogFolderPicker)"

S'il y a plantage je pourrais chercher à reconstruire.

Mais en premier lieu: tente de le faire par toi-même.

A noter que dans les ListView (Hormis la première) un Double-Click ouvre le Fichier.

Tu regarde, et tu me dis.

Amicalement,

Yann