13 lines
429 B
Text
13 lines
429 B
Text
Sub printFiles(parentDir As FolderItem, pattern As String)
|
|
For i As Integer = 1 To parentDir.Count
|
|
If parentDir.Item(i).Directory Then
|
|
printFiles(parentDir.Item(i), pattern)
|
|
Else
|
|
Dim rg as New RegEx
|
|
Dim myMatch as RegExMatch
|
|
rg.SearchPattern = pattern
|
|
myMatch = rg.search(parentDir.Item(i).Name)
|
|
If myMatch <> Nil Then Print(parentDir.Item(i).AbsolutePath)
|
|
End If
|
|
Next
|
|
End Sub
|