Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call FindFile("C:\Julien")
End Sub
'Fonction récursive affichant dans la fenetre
'de DEBUG TOUT les fichiers d'un répertoire racine
Public Sub FindFile(ByVal Dossier As String)
For Each str As String In My.Computer.FileSystem.GetFiles(Dossier, FileIO.SearchOption.SearchAllSubDirectories)
Console.WriteLine (Str)
Next
End Sub