MarcoPNS

Imports System
Imports System.IO
Imports System.Text
Public Class Form2
    Dim inDir As String = "D:\CopyTo"
    Dim outDir As String = "D:\CopyHere"

    Public Sub SearchFiles(ByVal Pattern As String, ByVal Path As String, ByVal FilesFound As ArrayList)
        FilesFound.AddRange(Directory.GetFiles(Path, Pattern))