9 lines
273 B
VB.net
9 lines
273 B
VB.net
|
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
|