Recherche de répertoires

bonjour


je pense qu'il y a peut-être un paramètre qui permet de spécifier le type de fichier, et ainsi de spécifier que le recherche des répertoires

si ce n'est pas le cas, quand ta boucle lit un fichier, utilise la fonction getattr pour savoir si c'est un répertoire ou encore contrôle le résultat de l'expression dir(tonchemin,vbdirectory)<>""

bye
stephane

Très bonnes idées... Je n'y avais pas pensé!!
Merci pour la rapidité de ta réponse!!
A+++

Sous dos on met dir *. pour indiquer qu'il n'y a pas d'extension et cela ramène les réperoires (les fichiers ayant tous ou presque une extension). On doit pouvoir extrapoler.
Chris

C'est exact...

J'ai trouvé 2 ou 3 exemples de macros traitant du sujet sur le site de Frederic Sigonneau, mais j'ai un peu de mal à en saisir le fonctionnement

Merci pour vos réponses...

MyFile = Dir("C:\WINDOWS\*.INI")
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.INI suivant dans le même dossier.
MyFile = Dir
voici un exemple :
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un dossier.
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Affiche l'entrée uniquement si elle
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop

Catherine

voici un exemple :
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un dossier.
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Affiche l'entrée uniquement si elle
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop

Catherine