RosettaCodeData/Task/Walk-a-directory-Recursively/Visual-Basic-.NET/walk-a-directory-recursively.vb

Sub walkTree(ByVal directory As IO.DirectoryInfo, ByVal pattern As String)
    For Each file In directory.GetFiles(pattern)
        Console.WriteLine(file.FullName)
    Next
    For Each subDir In directory.GetDirectories
        walkTree(subDir, pattern)
    Next
End Sub