Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le Chemi

[YANN-56]

Bonjour à tous,

Avant de poser ma question, j'ai un peu fouillé partout.
Soit rien ne convient, ou alors je suis trop nul pour comprendre...

Je sais que dans ma partition "E:" J'ai un dossier portant le nom de "MACHIN"
mais il peut être dans un Sous- dossier d'un Sous-dossier... Et c. Voire le cinquième rang
dans ce répertoire !!!

Il y a là sans doute une manipulation à faire de "Dir (".......")

Je connais la méthode pour dresser la totalité du contenu; mais c'est trop long.

Si c'est la seule façon, il serait sympa de me le dire.

Si avec "Dir" il y a plus rapide et que l'on m'y aide... Merci d'avance.

Yann

 

[MJ13]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour Yann

Dans ton cas le mieux (mais c'est quand même un peu long) est de faire un dir des dossiers et sous-dossiers dans un fichier txt. Mais tu peux le faire avant d'aller boire un café ou avant d'aller manger.

Ensuite tu charges ton txt et tu filtres sur le nom recherché.

 

[YANN-56]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour à Michel,

Je pense que je vais donc retourner à mon:

Set RECHERCHE = Application.FileDialog(msoFileDialogFolderPicker)

…….. Et c.

Tant pis si l'utilisateur boude… Mais j'aurai fait des économies! 🙂

S'il a perdu la mémoire, avec une recherche par Wind,
un Bic et un bout de papier, cela devrait marcher. 😀

Merci à toi, et bonne soirée.

Amicalement.

Yann

 

[MJ13]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Re

Sinon en commande Batch, tu peux tester (l'appeler TreeRep.bat par exemple avec le bloc note):

CD\
Tree c:\ > "c:\TreeRep.txt"

Ensuite tu ouvres le txt et tu recherches ton dossier.

ou

l'appeler DirRep.bat par exemple avec le bloc note:

CD\
DIR C:\*.* /AD /S> "c:\DirRep.txt"

 

[YANN-56]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Merci beaucoup Michel pour ton aide,

J'apprécie beaucoup que tu aies pris la peine de regarder un peu plus loin.

Cependant, cette utilisation du ".txt" dépasse mes compétences.
(Je ne m'y suis jamais encore aventuré)

Je garde ton idée dans mes archives, car elle m'intéresse aussi.

Pff!!! Encore des heures à apprendre! 🙁

Sympa de ta part. 🙂

Plein de bonnes choses à toi pour ce qu'il reste de cette fin de semaine.

Amicalement.

Yann

 

[Banzai64]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour

Si tu connais le nom d'un fichier dans le répertoire que tu recherches
Vas faire un tour si ce n'est déjà fait

Ce site n'existe plus

 

[YANN-56]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonsoir Banzai, heureux de te croiser à nouveau et que tu me répondes, 🙂

J'ai un peu la tête comme la carène d'une pinasse échouée sur la grève
de la ria d'ETEL, juste' en bas de mon bourg!

J'ai trop de chantiers en cours, et à 60 balais, il est normal que ce qu'il reste
de neurones chauffent un peu! 😛

Je vais débroussailler le terrain et regarder tout cela.

Il y a aussi un fil récent où l'on a échangé, et dont j'aimerais te donner suite.

Amicalement, et à plus tard.

Yann

 

[Pierrot93]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonsoir à tous,

regarde ceci, explore les disques durs de la machine, possibilé d'étendre à d'autres types de lecteurs, mais attention ca risque d'être un peu long surtout si tu explores les disques d'un réseau....

Option Explicit
Dim b As Boolean
Sub RechercheDossier()
Dim fs As Object, d As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
b = False
For Each d In fs.Drives
    'pour rechercher sur disques fixes et sur disques réseau
    'If d.DriveType = 2 Or d.DriveType = 3 Then
    'pour tester le disque C
    'if d.driveletter ="C" Then
    If d.DriveType = 2 Then
        On Error GoTo fin
        For Each f In d.RootFolder.SubFolders
            If f.Name = "NomDuDossierRecherché" Then MsgBox f.Path: Exit Sub
            RechercheSousDossier f
            If b Then Exit Sub
        Next f
fin:
    End If
Next d
End Sub


Sub RechercheSousDossier(f As Object)
Dim f1 As Object
If b Then Exit Sub
On Error GoTo fin
For Each f1 In f.SubFolders
    If f1.Name = "NomDuDossierRecherché" Then MsgBox f1.Path: b = True
    RechercheSousDossier f1
Next f1
fin:
End Sub

bonne soirée
@+

 

[YANN-56]

Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Merci Pierrot,

Au passage j'ai lu l'hommage bien mérité qui t'as été fait par les "Grands membres du Club"

Je vais regarder ta proposition.

De mon coté je suis sur une bidouille qui me semble assez rapide et efficace.

L'idée principale est de charger dans une ListView1 la liste des Dossiers avec leur chemin dans un répertoire,
puis par la suite, faite une boucle sur celle-ci pour en extraire les SubFolders dans une ListView2

De la même façon, subdiviser dans une troisième, quatrième... Et ainsi de suite.
Pour l'instant cela est satisfaisant..... (Résultat immédiat!)
Mais je ne suis pas aller plus loin en testant sur une racine.

Le but définitif est, bien entendu, de se passer des ListView suivantes,
quand l'on aura trouvé le Dossier cherché.

Il me reste un souci: Les doublons!!! Dans tel ou tel répertoire.

Je vais continuer, et si la suite me semble acceptable,
je ne manquerai pas de la soumettre à ton avis éclairé.
(Pour l'instant, j'aurais un peu honte de montrer mon balbutiement)

Amicalement.

Yann