Si usas MOVE, entonces te sale un error porque ya existe, puedes usar el COPY y luego eliminas el archivo origen:
System.IO.File.Copy("E:mibd.mdb", "C:mibd.mdb", True) ' TRUE para sobreescribir en caso exista.
System.IO.File.Delete("E:mibd.mdb")
Aqui te dejo tambien un procedimiento para una copia masiva:
Private Sub CopyFiles(ByVal diSource As DirectoryInfo, ByVal diDestination As DirectoryInfo, _
ByVal blOverwrite As Boolean)
Dim diSourceSubDirectories() As DirectoryInfo
Dim fiSourceFiles() As FileInfo
'obtengo todos los archivos del directorio origen
fiSourceFiles = diSource.GetFiles()
'obtengo los subdirectorios (si existen)
diSourceSubDirectories = diSource.GetDirectories()
'si no existe el directorio destino crearlo
If Not diDestination.Exists Then diDestination.Create()
'Usar la recursividad para navegar por los subdirectorios
'e ir obteniendo los archivos hasta llegar al final
For Each diSourceSubDirectory As DirectoryInfo In diSourceSubDirectories
CopyFiles(diSourceSubDirectory, New DirectoryInfo(diDestination.FullName & "" & _
diSourceSubDirectory.Name), blOverwrite)
Next
For Each fiSourceFile As FileInfo In fiSourceFiles
fiSourceFile.CopyTo(diDestination.FullName + "" + fiSourceFile.Name, blOverwrite)
Next
End Sub
Para llamarlo:
'ruta del directorio origen
Dim diSource As New DirectoryInfo("C:folderOrigen")
'ruta del directorio destino
Dim diDestiny As New DirectoryInfo("C:folderDestino")
CopyFiles(diSource, diDestiny, True)
Saludos.