vb.net - 数に関係なく、すべてのサブディレクトリ内のすべてのファイルを一覧表示します

Question

親ディレクトリとそのすべてのサブディレクトリ内のすべてのファイル名を取得しようとする次のコードがあります。

コードは機能しますが、私が望む方法ではありません。つまり、親ディレクトリ内のすべてのファイルと、サブディレクトリの「第 1 レベル」内のすべてのファイルを処理しますが、サブディレクトリのすべてのレベルに移動できるようにしたいと考えています。

それ、どうやったら出来るの？

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'ListBox1.Items.AddRange(IO.Directory.GetFiles("C:\"))

    For Each Dir As String In IO.Directory.GetDirectories("C:\Program Files")
        ' ListBox1.Items.Add(Dir)
        ListBox1.Items.AddRange(IO.Directory.GetFiles(Dir))
    Next
End Sub