Skip to content

Instantly share code, notes, and snippets.

at the moon!

Marco Sadowski MarcoPNS

at the moon!
View GitHub Profile
View edited.vb
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))