Dim Source As String 
Source = "\\IMAGE-STORAGE\Server\Preinstall\" & labPreinstall.Text & "\" 
Dim dir as new io.directoryinfo(Source)
dim file as io.fileinfo
MkDir("E:\Images\" & labPreinstall.Text) 
 
for each file in dir.getfile(".00")
file.copyto(io.path.combine("E:\Images\" & labPreinstall.Text,file.name))
next