Søge efter fil-typer også i undermapper

Det må være noget med at bruge klassen DirectoryInfo og metoden GetFiles("*.txt") i en rekursion...

Sub TraverseDir(strDir as string, strPattern as string)
  Dim di As DirectoryInfo = new DirectoryInfo(strDir)
  Dim afi As FileInfo() = di.GetFiles(strPattern)

  For Each fi in afi
    ' Gør hvad der skal gøres med filerne...
  Next

  Dim adi2 As DirectoryInfo() = di.GetDirectories()
  For Each di2 in adi2
    TraverseDir(di2.FullName, strPattern)
  Next
End Sub

Den kaldes således:

TraverseDir("c:\temp", "*.txt")

Det virker perfekt... Smid et svar:P

Det kom der :)