Basta un pò di fantasia
Dim nuovoPath As String = "nuovoPath"
Dim vecchioPath As String = "vecchioPath"
Directory.CreateDirectory(nuovoPath)
Dim fileName() As String = Directory.GetFiles(vecchioPath)
For Each item As String In fileName
File.Copy(Path.Combine(vecchioPath, item), Path.Combine(nuovoPath, item))
Next
--------------
Maurizio Brini
--------------
Nessuna impresa è mai stata compiuta da un uomo ragionevole