Dudas con copia de directorios

[Pilotillo]

Antes de nada gracias por la respuesta,de momento lo que hice es poner al final de cada copy un msgbox,ahora el problema que tengo es que si esas carpetas existen,me crean una excepcion IO,porque ya existen....
No se si ponerle:
-----------------------------------------------------------------------------------------------------------
dim master as string
master="c:\origen"
dim copia as string
copia= d:\copia
My.Computer.FileSystem.DeleteDirectory(copia)
-----------------------------------------------------------------------------------------------------------

Y luego el codigo, que he puesto arriba, o habria otra manera ya que como se cogen discos duros que no se saben de quien son ni con que vienen,si habria alguna forma de realizar un formateo rapido

Un saludo y gracias por la rapida respuesta