comment lister le nom des fichiers dans un rep et les copier dans une BD

Question

J'ai un repertoire c:\Rep\Data\
avec des fichiers mdb dedans
j'ai une base de données c:\rep\bibilio.mdb
avec une table reference avec deux champs : nom, pays

Comment faire pour faire un module qui liste tous les nom des fichiers dans c:\rep\data et va ecrire ces noms dans c:\rep\biblio.mdb, dans la table reference, dans le champ : 
Nom
De plus, les fichiers ont un nom de ce style : TARFR01.MDB
TARGB03.MDB

Comment faire pour ajouter dans le champ pays, le pays correspondant au fichier dans le champs Nom

Urgent.

Merci à tous

Murray · Answer

Pour lister les fichiers, tu peux utiliser la fonction DIR

Exemple :

dim strFichier as String

strFichier = Dir("c:\Rep\Data\*.mdb")
  
While strFichier <> ""
  ' strFichier contient le nom de la base de données
  ' tu ajoute ici le code pour l'ajouter à la base
  strFichier = Dir ' ne pas oublier sinon boucle infinie...
Wend

Pour le pays, si les noms ont tous la même taille et la même structure, essaye d'utiliser la fonction Mid pour extraire le code langue.

Comment lister le nom des fichiers dans un rep et les copier dans une BD

1 réponse

Discussions similaires