Io ho questo mio codice che dovrei trasformarlo in una funzione semplice, senza utilizzare la ricorsione:

Try
Dim InfoDirectory1 As New DirectoryInfo(Path)
Dim InfoDirectory2 As DirectoryInfo() = InfoDirectory1.GetDirectories()
Dim InfoDirectory3 As DirectoryInfo
Dim InfoFile1 As FileInfo
Dim InfoFile2 As FileInfo() = InfoDirectory1.GetFiles()

For Each InfoFile1 In InfoFile2
PrintLine(1, InfoFile1.FullName)
Count += 1
Next InfoFile1

If InfoDirectory2.Count > 0 Then

For Each InfoDirectory3 In InfoDirectory2
FindFile(Path & "\" & InfoDirectory3.Name)
Next InfoDirectory3

End If

Catch ex As Exception

End Try

Mi date una mano? Grazie, ...