Sub F_GetAllFiles(ByVal sPath As String, ByVal pattern As String, ByVal arr _
      As ArrayList)
        arr.AddRange(IO.Directory.GetFiles(sPath, pattern))
        Dim s As String
        For Each s In IO.Directory.GetDirectories(sPath)
            F_GetAllFiles(s, pattern, arr)
            Application.DoEvents()
        Next
    End Sub

Dim MyFile As New ArrayList()
                    MyFile.Clear()
F_GetAllFiles(sPath, "*.*", MyFile)

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP