Se connecter / S'enregistrer
Votre question

[VBA] Access - Lister fichiers d'un répertoire

Tags :
  • string
  • Programmation
Dernière réponse : dans Programmation
1 Février 2011 16:06:53

Bonjour,

J'aimerai savoir si c'est possible de lister les fichiers d'un répertoire dans une table Access en VBA. J'aimerai retrouver ma table avec une colonne qui répertorie tous les fichiers et une autre colonne avec leur répertoire. Quelqu'un aurai t'il une idée ?

Merci d'avance.

Autres pages sur : vba access lister fichiers repertoire

1 Février 2011 16:48:19

Pour le moment j'ai réussi ceci :
  1. Option Compare Database
  2.  
  3. Dim requete As String
  4. Dim base As Database
  5. Dim chemin As String
  6.  
  7. ' ---
  8. ' AFFICHAGE DU CONTENU D'UN DOSSIER
  9. ' ---
  10. '
  11. Sub ContenuDuDossier(ByVal strDossier As String)
  12. Dim strFichier As String
  13.  
  14. 'Vérifier que le dossier existe bien
  15. If Dir(strDossier, vbDirectory) = "" Then
  16. MsgBox "Dossier introuvable !", vbExclamation
  17. Exit Sub
  18. End If
  19.  
  20. 'Lister tous les fichiers du dossier
  21. strFichier = Dir(strDossier, vbNormal)
  22. While strFichier <> ""
  23.  
  24. 'Se connecter à la base de données
  25. chemin = "U:\LogOsi\PROJETS\Projet BUR WOP\WOP Conversion\BDD_WOP.accdb"
  26. Set base = DBEngine.OpenDatabase(chemin)
  27.  
  28. 'Afficher le nom du fichier
  29. requete = "INSERT INTO Test (nom_fic, loc_fic) VALUES ('" & strFichier & "', '" & strDossier & "')"
  30. 'Déclaration du recordset
  31. base.Execute (requete)
  32.  
  33. strFichier = Dir
  34.  
  35. Wend
  36. End Sub


Mais j'aimerai une recherche dans les sous répertoires, comment faire?
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS