[vb.net] Récuperer les noms de chaque fichiers d'un répertoire...

Résolu
lebender33
Messages postés
52
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
26 août 2009
- 17 juin 2005 à 16:19
cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
- 20 juin 2005 à 12:03
Bonjour todo el mundo,

Alors voila je sais que le sujet a déja été abordé mais jamais en vb.net (du moins j'ai pas trouvé).

Je cherche a récuper les noms de tout les fichiers d'un repertoire en vb.net.

merci

++
Bender

3 réponses

cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
20 juin 2005 à 12:03
Salut,

essaye ça, ça devrait marcher :


Dim lesfich
As ArrayList

Dim i
As
Integer
Dim dossier
As System.IO.Directory

Dim tabDossier
As
String()

Dim dir
As
String


tabDossier = dossier.GetFiles(rep)


lesfich =
New ArrayList(tabDossier.Length)



For
Each dir
In tabDossier


lesfich.Add(dir)



Next dir

@+
3
cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
17 juin 2005 à 17:09
Salut,


Dim dossier
As System.IO.Directory


Dim tabDossier
As
String()


tabDossier = dossier.GetFiles(rep)

ainsi tu récupères tous les fichiers du répertoire 'rep'.

@+
0
lebender33
Messages postés
52
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
26 août 2009

20 juin 2005 à 11:37
Merci,
apparement ca marche mais j'ai tout de meme probleme. Je fait :

Dim lesfich() As String
Dim i As Integer
Dim dossier As System.IO.Directory
Dim tabDossier As String()
Dim dir As String

tabDossier = dossier.GetFiles(rep)
i = 0
For Each dir In tabDossier
lesfich(i) = dir
'Me.Label1.Text = "laboucle" + lesfich( i )
i = i + 1
Next dir

et mon tableau lesfich(), ne se remplie pas je ne sais pas pourquoi...
Si t'as une idée
Merci

Bender
0