vb6+ calculer le nombre de fichiers dans un dossierRésolu

Question

Salut,
Pourriez vous me dire comment calculer le nombre de fichier dans un dossier?
Merci

cs_kazer04 · Accepted Answer

avec l'objet filelistboxt c'est assez simple
place sur ta feuille une bouton et un filelistbox

et place ce code

Private Sub Command1_Click()
File1.Path = "c:" 'tu place le chemin d'acces du dosier a scaner tu peu le rendre dynamique grace a une variable
MsgBox File1.ListCount
End Sub

cs_kazer04 · Answer

scane tout ton fichier en incrementant une variable genre i

cs_Jack · Answer

Salut
Soit tu incrémente un compteur en faisant un Do-Loop avec l'instruction Dir
Soit tu utilises le FileSystemObject et tu récupères cette info dans le Folder.FilesCount
Recherche les mots clés en bleu parmi les codes et/ou le forum, c'est classique.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on

cs_Jack · Answer

Très bonne idée, Kazer04

cs_kazer04 · Answer

merci jack

PCPT · Answer

salut, tiens, cadeau Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Long CountFilesFromDirectory = 0 If RightB$(sDir, 2) <> "" Then sDir = sDir & "" ' formate le chemin Dim sFile As String sFile = Dir(sDir & sFilter, vbHidden Or vbSystem) If sFile <> vbNullString Then ' boucle sur tous les fichiers Do CountFilesFromDirectory = CountFilesFromDirectory + 1 sFile = Dir Loop Until sFile = vbNullString End If End Function Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

Prenez un instant pour répondre à ce sondage svp

PCPT · Answer

à peine modifié ici :
http://www.codyx.org/snippet_compter-nombre-fichiers-dans-repertoire_263.aspx

(remplacement vbnullstring par len)
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

spootnic22 · Answer

Salut,
Merci kaser04 et aussi pour PCPT pour leur réponse.
A++

Vb6+ calculer le nombre de fichiers dans un dossier

8 réponses

Votre réponse

Discussions similaires