Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        list(New DirectoryInfo(TextBox1.Text), ListBox1)
        Label1.Text = "Directories: " + dcnt.ToString() + " files: " + _
          ListBox1.Items.Count.ToString()
    End Sub
 
    Private dcnt As Integer
 
     Private Sub list(ByVal dir As DirectoryInfo, ByVal lb As ListBox)
        dcnt += 1
 
        ' Process subdirectories
        For Each dir1 As DirectoryInfo In dir.GetDirectories()
            list(dir1, lb)
        Next
 
        ' List files in this directory
        For Each fi As FileInfo In dir.GetFiles()
            lb.Items.Add(fi.FullName)
        Next
 
    End Sub