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