Visual Basic.NET - Importan BD

   
Vista:

Importan BD

Publicado por Almudena (12 intervenciones) el 30/05/2009 03:01:45
Hola, tengo un problemiya, estoy haciendo un programa en el k tengo un opcion para importar una base de datos en mi programa, pero claro el problema esta cuando intenta ponerla en su directorio, que como hay ya una base de datos con el mismo nombre pues me da fallo, y mi pregunta es como ago para borrar antes ese fichero, espero que alguien pueda ayudarme pro favor
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Importan BD

Publicado por P. J. (706 intervenciones) el 01/06/2009 21:49:30
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar