[vb.net] Récuperer les noms de chaque fichiers d'un répertoire... [Résolu]
Signaler
lebender33
cs_drahcir
- Messages postés
- 52
- Date d'inscription
- mercredi 16 mars 2005
- Statut
- Membre
- Dernière intervention
- 26 août 2009
cs_drahcir
- Messages postés
- 745
- Date d'inscription
- mardi 30 novembre 2004
- Statut
- Membre
- Dernière intervention
- 15 septembre 2009
A voir également:
- Vb.net todo
- Dir vb.net - Meilleures réponses
- Vb dir - Meilleures réponses
- Visual Basic / VB.NET : Un todo qui parle - CodeS SourceS - Guide
- Code connexion vb.net access pdf - Conseils pratiques - Visual Basic / VB.NET
- Qcm vb.net - Guide
- Vb.net excel - Guide
- Parse vb.net - Conseils pratiques - C# / .NET
3 réponses
cs_drahcir
- Messages postés
- 745
- Date d'inscription
- mardi 30 novembre 2004
- Statut
- Membre
- Dernière intervention
- 15 septembre 2009
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
@+
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
@+
cs_drahcir
- Messages postés
- 745
- Date d'inscription
- mardi 30 novembre 2004
- Statut
- Membre
- Dernière intervention
- 15 septembre 2009
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'.
@+
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'.
@+
lebender33
- Messages postés
- 52
- Date d'inscription
- mercredi 16 mars 2005
- Statut
- Membre
- Dernière intervention
- 26 août 2009
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
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