Nombre de Fichiers dans un dossier

zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008 - 3 juin 2004 à 22:07
zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008 - 4 juin 2004 à 17:46
Bonjour, voila mon problème:
J'aimerais avoir le nombre de fichier contenu dans un dossier (c:\Ini)?
Pouvez vous m'aider ou me diriger vers une source car je n'en est pas trouvé sur ce site qui le faisé.
Merci d'avance de vos réponses.

3 réponses

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
3 juin 2004 à 22:48
Salut,
je sais que le FileSystemObject ne plait pas à tout le monde mais ça peut être une soluce à ton pb.

Avec "Microsoft Scripting Runtime" coché ds Projet/Références... :

Private Sub Command1_Click()
Dim fso As FileSystemObject
Dim fld As Folder

' Set du FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
' Set du dossier à parcourir
Set fld = fso.GetFolder("C:\ini")

MsgBox fld.Files.Count

End Sub

Cordialement

CanisLupus
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
3 juin 2004 à 23:08
Bonsoir
ou bien tu ajoutes une FileListBox File1 sur ta Form
Tu lui donnes les propriétés :
File1.Visible = False
File1.Path = "C:\Ini"

et NombreDeFichiers = File1.ListCount
0
zelze Messages postés 234 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 30 juillet 2008
4 juin 2004 à 17:46
Merci a vous deux.
Et je viens de me randre compte que je suis vraiemement bête de ne pas avoir pensé a un FileListBox :big) .
Encore merci...
0
Rejoignez-nous