Bonjour,
J'ai trouvé sur Internet une fonction me permettant de compter le nombre de fichier présent dans un dossier.
Malheureusement des la 1ere declaratio de variable, le code me renvoit une erreur de compilation :"Type défini par l'utilisateur non défini", ce qui signifie qu'il manque une reference dans l'editeur, si je ne m'abuse.
J'aurais donc aimé savoir quel reference il été necessaire d'ajouter pour que le code ci dessous fonctionne
Chipss
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Public Function ListeFichiersDans(ByVal NomDossier As String) Dim FSO As Scripting.FileSystemObject Dim DossierSource As Scripting.Folder Dim Fichier As Scripting.file Dim r As Long Set FSO = New Scripting.FileSystemObject Set DossierSource = FSO.GetFolder(NomDossier) r = 0 For Each Fichier In DossierSource.Files r = r + 1 Next Fichier Set Fichier = Nothing Set DossierSource = Nothing Set FSO = Nothing ListeFichierDans = r End Function
Partager