Discussion :

[Jean-Luc80]

Bonjour à tous et meilleurs voeux pour 2009
Je voudrais lister tous les sous-répertoires d'un certain répertoire afin de les mettre dans une table pour l'utiliser plus tard à des fins de comparaison avec une requête
J'ai trouvé ici une routine qui marche fort bien pour des fichiers mais pas pour des dir, la voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RecuperationImagesFilms()
DoCmd.SetWarnings False
 
 Dim t As DAO.Recordset, repertoire As String, fichier As String
 
 'répertoire des fichiers à récupérer
 repertoire = "C:\ImagesFilm\"
 'vide la table tbFichiers
 DoCmd.RunSQL "DELETE tbImagesFilms.* FROM tbImagesFilms;"
 
 Set t = CurrentDb.OpenRecordset("tbImagesFilms")
 fichier = Dir(repertoire)   ' erreur probablement ici
 Do Until fichier = ""
  t.AddNew
  t!fichier = fichier
  t.Update
  fichier = Dir
 Loop
 
 t.Close
 Set t = Nothing
DoCmd.SetWarnings True
 
End Sub

pour lister des fichiers je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier=Dir(repertoire & "*.bmp")

mais je ne sais pas si je peux utiliser la même méthode pour des sous-répertoires.
Auriez-vous quelques conseils ?
Merci

[User]

tu as essayé avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier = Dir(repertoire, vbDirectory)

voici un lien:
http://www.developpez.net/forums/d63...r/#post3737943
@+

[Jean-Luc80]

Merci beaucoup ça fonctionne