File Listing

SUBMITTED BY: Nutty1337

DATE: July 20, 2017, 1:37 p.m.

FORMAT: VB.net

SIZE: 338 Bytes

Raw Download

HITS: 440

Report

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