{Access} Extraction des noms de fichiers
Fermé
hype_brandon
-
30 oct. 2009 à 18:42
blux Messages postés 26514 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 5 décembre 2024 - 2 nov. 2009 à 14:23
blux Messages postés 26514 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 5 décembre 2024 - 2 nov. 2009 à 14:23
A voir également:
- {Access} Extraction des noms de fichiers
- Les noms des animaux - Télécharger - Études & Formations
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
- Renommer des fichiers en masse - Guide
- Fichiers epub - Guide
2 réponses
Hello
je connais pas access, mais je fais un peu de scripting avec WSH en VBScript. donc ce qui suit devrait facilement être adaptable à Access qui dispose - je crois - de VBA
1. créer un objet Shell
dim oShell: Set oShell = ("Shell.Application")
2. s'allouer un objet oFolder pour gérer le dossier désiré
dim oFolder: Set oFolder = oShell.NameSpace("C:\Documents and Settings\Dom\Mes documents\Project X")
3. lister les fichiers
dim sNomDuFichier: For each sNomDuFichier in oFolder.Items
wscript.echo sNomDuFichier
next
attention : chaque wscript.echo provoque l'apparition d'un popup. si tu le testes tel quel, ce sera un popup par fichier.
4. récupérer un attribut (date, taille, etc) à travers oFolder
dim Attribut: Attribut = oFolder.GetDetailsOf(sNomDuFichier, x)
nb:j'ai pas les valeurs de x en tête, à toi de les découvrir
maintenant que tu sais comment lister un dossier, je te laisse découvrir comment stocker tout ça dans Access
bon courage
je connais pas access, mais je fais un peu de scripting avec WSH en VBScript. donc ce qui suit devrait facilement être adaptable à Access qui dispose - je crois - de VBA
1. créer un objet Shell
dim oShell: Set oShell = ("Shell.Application")
2. s'allouer un objet oFolder pour gérer le dossier désiré
dim oFolder: Set oFolder = oShell.NameSpace("C:\Documents and Settings\Dom\Mes documents\Project X")
3. lister les fichiers
dim sNomDuFichier: For each sNomDuFichier in oFolder.Items
wscript.echo sNomDuFichier
next
attention : chaque wscript.echo provoque l'apparition d'un popup. si tu le testes tel quel, ce sera un popup par fichier.
4. récupérer un attribut (date, taille, etc) à travers oFolder
dim Attribut: Attribut = oFolder.GetDetailsOf(sNomDuFichier, x)
nb:j'ai pas les valeurs de x en tête, à toi de les découvrir
maintenant que tu sais comment lister un dossier, je te laisse découvrir comment stocker tout ça dans Access
bon courage
blux
Messages postés
26514
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
5 décembre 2024
3 317
2 nov. 2009 à 14:23
2 nov. 2009 à 14:23
Salut,
il y a tout ce qu'il faut en ACCES VBA pour parcourir des répertoires et en extraire des noms de fichiers.
Vois du côté des commandes chdir et dir.
Par contre, je ne sais pas ce que tu souhaites faire avec les fichiers, si c'est pour regarder dedans, ça s'annonce plus difficile.
il y a tout ce qu'il faut en ACCES VBA pour parcourir des répertoires et en extraire des noms de fichiers.
Vois du côté des commandes chdir et dir.
Par contre, je ne sais pas ce que tu souhaites faire avec les fichiers, si c'est pour regarder dedans, ça s'annonce plus difficile.
30 oct. 2009 à 21:53
Je me disais bien qu'il fallait me mettre au VBA un de ses quatre...
Juste une question cependant, je n'ai surement pas besoin de devenir un expert pour resoudre mon probleme. Du coup ca peut paraitre un peu vague mais connaitrais tu des tutoriels VBA orientes pour Access (je ne sais pas si ce que je dis a un sens) adaptes a mon truc, de telle sorte que je puisse m'arreter au bon moment et commencer a coder le plus rapidement possible?
En tout cas merci pour la clarte de ton explication
PS: concernant l'etape 3, tu me parles du danger des pop up. Comment puis je faire pour m'en debarasser
31 oct. 2009 à 01:14
le plus simple pour limiter les affichages dans un boucle est de compter les affichages. au bout d'un certain nombre, on n'affiche plus
Genre :
si compteur < 4 alors afficher popup puis ioncrementer compteur