Dim NomFich as String Dim Liste as String NomFich = Dir("C:") Do While (LenB(NomFich) > 0) If ((NomFich <> ".") And (NomFich <> "..")) Then Liste = Liste & NomFich & vbCrLf 'Else End If NomFich = Dir 'Si on dit pas quel répertoire, utilise le dernier spécifié Loop Text1.Text = Liste