Dim directory = "D:\Picture\บ้านไอเดีย\"
For Each filename As String In System.IO.Directory.GetFiles(directory, "*.jpg", System.IO.SearchOption.AllDirectories)
Dim FileCutName As String = System.IO.Path.GetFileName(filename)
System.IO.File.Copy(filename, "E:\Test\" & FileCutName & "", True)
Next