Skip to content

Instantly share code, notes, and snippets.

Avatar
🚀
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))