Discussion :

[Chipss]

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

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

Chipss

[Invité]

Bonjour

Microsoft Scripting Runtime

Philippe

[Chipss]

Hmm merci! J'avais reussi à m'en passer en utilisant des Object!

Mais au moins je le saurais pour la prochaine fois

Chipss

[tototiti2008]

Bonjour à tous,

et ça, ça ne marche pas ?

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
Public Function ListeFichiersDans(ByVal NomDossier As String)
 
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim r As Long
 
    Set FSO = New Scripting.FileSystemObject
    Set DossierSource = FSO.GetFolder(NomDossier)
 
    r = DossierSource.Files.count
    ListeFichiersDans = r
 
    Set DossierSource = Nothing
    Set FSO = Nothing

 
End Function

[Chipss]

Si effectivement cette methode est aussi fonctionelle.
En soit ca change pas grand chose, mais il est vrai que ca fait un peu plus propre

Merci pour ta reponse en tout cas

Chipss