yomm
Messages postés515Date d'inscriptiondimanche 17 février 2002StatutMembreDernière intervention10 mars 20083 9 déc. 2002 à 14:09
J'avai déjà pensé à cela merci...mais c'est pas du tout ce qu'il me faut.......trop lourd......j'ai des sous répertoire.....des sous-sous-répertoire....des sous(...) et c'est répertoire ne sont pas fix.....il pe très bien y en avoir 3 comme 40.....moralité le coup des listbox c'est beaucoup trop lourd dans mon cas.........j'avai fai a peu près pareil en passant par des tableau dynamique pour récupérer le nom des répertoire et celui des fichiers mais là il me fo juste le nombre de fichier........donc je ne ve pa faire pareil.........je souhaite quelque chose de légé genre API......ou fonction VB(A)
angenoir3000
Messages postés4Date d'inscriptionmardi 29 avril 2003StatutMembreDernière intervention 7 mars 2006 27 janv. 2006 à 09:28
voici une le code d'une fonction en VBA qui renvoi le nombre de fichier dans un répertoire précis:
Public Function FDC_NombrePhoto(strDossierNom As String) As Long
Dim objFileSys As Object
Dim objDossier As Object
Set objFileSys = CreateObject("Scripting.FilesystemObject")
If objFileSys.FolderExists(strDossierNom) Then
Set objDossier = objFileSys.getfolder(strDossierNom)
FDC_NombrePhoto = objDossier.Files.Count
Else
FDC_NombrePhoto = 0
End If
End Function
Il suffit de la répéter pour les différent répertoires
je n'ai pa testé si Count prend en compte les sous-répertoires sinon il faut que tu boucle sur tous les sous-répertoires