remplissage d'un tableau avec une boucle while

Marsh Posté le 06-06-2006 à 10:20:32

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

Marsh Posté le 06-06-2006 à 10:20:32

Marsh Posté le 06-06-2006 à 10:26:28

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

Marsh Posté le 06-06-2006 à 11:26:36

merci beaucoup ca marche!!!!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *