Sub CopyDirectory(source As String, dest As String)
Dim al As List = File.ListFiles(source)
For Each s As String In al
If File.IsDirectory(source, s) Then
CopyDirectory(File.Combine(source, s), File.Combine(dest, s))
Else
File.Copy(source, s, dest, s)
End If
Next
End Sub