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