'non funzionante
My.Computer.FileSystem.CopyDirectory("c:\" + TextBox1.Text, "c:\" + TextBox3.Text, True)

'funzionante - Ti ricordo che cosi Copi il contenuto della cartella
My.Computer.FileSystem.CopyDirectory("c:\" + TextBox1.Text, "c:\" + TextBox3.Text + "\" + TextBox1.Text, True)