Salut, je cherche a faire un liste de tout les fichiers presant ds un repertoire. sans aucun control ! savez vous faire sa ?
en tout cas merci d'avoir pris le temp de me lire et bonne continuation a tous ...

Vois simplement la fonction DIR
(à noter que l'utilisation d'une ListBox est seulement à des fins d'affichages)

Dim strTmp As String Dim strListe() As String Dim iCmpt As Integer Dim iNbr As Integer strTmp = Dir("C:\Windows\Temp\*.*", vbNormal) iNbr = -1 If (LenB(strTmp) > 0) Then iNbr = iNbr + 1 ReDim strListe(iNbr) strListe(iNbr) = strTmp strTmp = Dir Do While (LenB(strTmp) > 0) iNbr = iNbr + 1 ReDim Preserve strListe(iNbr) strListe(iNbr) = strTmp strTmp = Dir Loop Else iNbr = 0 ReDim strListe(0) strListe(0) = "[Répertoire vide...]" End If List1.Clear For iCmpt = 0 To iNbr List1.AddItem strListe(iCmpt) Next iCmpt

-------------------------------
Réponse au message :
-------------------------------


Salut, je cherche a faire un liste de tout les fichiers presant ds un repertoire. sans aucun control ! savez vous faire sa ?
en tout cas merci d'avoir pris le temp de me lire et bonne continuation a tous ...

Dim allfile As String, one As Integer
allfile = Dir(App.Path & "\*.*", vbNormal)
List1.AddItem allfile

While one <> 1
On Error GoTo Fin:
List1.AddItem Dir
Wend
Fin:

Sans prétention, plus court, plus "porc". A toi de voir.

LooL, thx a vous deux, vous m'eviter un paquet d'heure d'enmerde. Merci encore et a biento j'espert !



-------------------------------
Réponse au message :
-------------------------------

Dim allfile As String, one As Integer
allfile = Dir(App.Path & "\*.*", vbNormal)
List1.AddItem allfile

While one <> 1
On Error GoTo Fin:
List1.AddItem Dir
Wend
Fin:

Sans prétention, plus court, plus "porc". A toi de voir.

-------------------------------
Réponse au message :
-------------------------------

LooL, thx a vous deux, vous m'eviter un paquet d'heure d'enmerde. Merci encore et a biento j'espert !



-------------------------------
Réponse au message :
-------------------------------

Dim allfile As String, one As Integer
allfile = Dir(App.Path & "\*.*", vbNormal)
List1.AddItem allfile

While one <> 1
On Error GoTo Fin:
List1.AddItem Dir
Wend
Fin:

Sans prétention, plus court, plus "porc". A toi de voir.

c'est clair je me demande pourquoi il faut qu'il y en ait qu tape du code long pourris et incomprehensible alors que la memechose peut etre faite en 6 ligne.bien joue kephren