cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010
-
29 avril 2005 à 22:35
michelxld
Messages postés402Date d'inscriptionvendredi 6 août 2004StatutMembreDernière intervention12 octobre 2008
-
29 avril 2005 à 23:02
Slt,
Comme le titre l'indique j'aimerais savoir le code pour savoir si un dossier contient des sous dossier ou des fichiers ( à l'aide d'une valeur string") important pour les sous dossiers")
s'il existe une API ce seraoi genial
Merci
Sub compterDossiersFichiers(SourceFolderName As String)
'necessite d'aviter la reference Microsoft Scripting RunTime
' adapté de Ole P Erlandsen
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)