remplissage d'un tableau avec une boucle while

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : remplissage d'un tableau avec une boucle while

fab034

Bonjour,

j'ai un léger probléme mais qui je pense peut se résoudre facilement, mais j'y arrive pas.

Voilà dans mon code je suis obligé d'utiliser une boucle while, or avec cette boucle je n'arrive pas à remplir un tableau.

voici le code:

Sub ShowFiles()
Dim NextFile As String
Dim AllFiles As String
Dim data() As String

AllFiles = ""
NextFile = Dir("C:\" )
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend

MsgBox AllFiles
End Sub

Ce programme aurait pour but d'afficher tous les fichiers qui sont dans un dossier et mettre les noms de fichier dans le tableau data(). Le problème vient du fait que je ne connais pas la taille du tableau, voilà pourquoi j'utilise une boucle wend, mais j'arrive pas à remplir le tableau.

Quelqu'un peut-il m'aider????

Merci d'avance

Publicité

kiki29

A adapter

Sub ListeFichiersTableau()
Dim NomFichier As String
Dim Dossier As String, NbFichiers As Long
Dim Tableau() As String, i As Integer

' Dossier de test
Dossier = "C:\Transfert\*.*"
NomFichier = Dir(Dossier)
Erase Tableau
NbFichiers = 0
Do While Len(NomFichier) > 0
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = NomFichier
NomFichier = Dir()
Loop
End Sub

Message édité par kiki29 le 06-06-2006 à 10:26:59

fab034

merci beaucoup ca marche!!!!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

remplissage d'un tableau avec une boucle while

Sujets relatifs
JS/PHP comment récupérer la valeur d'une case de tableau?	Taille des lignes de tableau
affichage dinamique dans un tableau	Un tableau qui se dédouble quand la page est en include !
Largeur d'un tableau avec l'attribut width, min-with	uniformiser affichage tableau
pb tableau[résolu]	Insérer un tableau dans un post de forum PHP ?
Comment coloriser certain elements dans mon tableau avec css ?	Image comme bordure de tableau
Plus de sujets relatifs à : remplissage d'un tableau avec une boucle while

Page générée en 0.025 secondes