Lister les fichiers dans un répertoire sous VB2005

Résolu
cs_PHILOUVB Messages postés 141 Date d'inscription mardi 18 mars 2003 Statut Membre Dernière intervention 3 octobre 2010 - 6 juin 2007 à 19:20
dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010 - 7 juin 2007 à 07:53
Bonjour,

J'ai un répertoire (C:\Répertoire) qui contient un certain nombre de fichiers.

J'aimerais savoir comment je peux connaitre le nombre total de fichier et ensuite, comment les lister
dans un listbox.

Merci par avance

PhilouVB

1 réponse

dp_favresa Messages postés 132 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 mai 2010
7 juin 2007 à 07:53
Bonjour,

Tu peux faire de la façon suivante :
Imports System.IO
Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim RecFic As String() = Directory.GetFiles("C:\Répertoire", "*.*")
        Dim FicDir As String
        Dim Compt As Integer = 0
        For Each FicDir In RecFic
            ListBox1.Items.Add(FicDir)
            Compt += 1
        Next
        TextBox1.Text = Compt & " fichiers"
    End Sub
End Class

Bon(nes) courage, développement, salutations...
(choisissez ce qui vous convient) dp
3