Try
	Dim dossiersTrouvé = Directory.GetDirectories("C:\", SearchOption.AllDirectories)
	For Each LigneD in DossiersTrouvé

		Dim fichiersTrouvé = Directory.GetFiles(ligneD, "*.*", SearchOption.AllDirectories)
		For Each ligneF in FichiersTrouvé
		    ListBox1.Items.Add(LigneF)
		Next
	     Next

	Catch ex as exception
End Try