El siguiente código es usado para realizar una copia backup de una base de datos, pero al intentar hacerla en la unidad de diskette produce el siguiente error:
Error en el método 'CopyFile' del objeto 'IFileSystem3'
Sin embargo, si realiza la copia cuando se selecciona el disco duro, cualquier carpeta en el disco duro y otras unidades como memoria USB. Otro problema seria el validarle al codigo cuando una unidad no esta disponible, como por ejemplo intentar hacer copia en una unidad de CD que no tengan CD, al intentar esto se produce el error: el dispositivo no esta disponible
Esto ocurre para el codigo:
DirVistaCarpetas.Path = DriveUnidad.Drive
En resumen este codigo funciona menos para la unidad de diskette a pesar de tener diskette y tampoco para unidades no disponibles como unidades de CD sin CD.
Sub Backup()
Dim Backup As Scripting.FileSystemObject
On Error GoTo xerror
Set Backup = New Scripting.FileSystemObject
If Backup.FileExists(App.Path + "\BaseDatosDOMESA.mdb") Then
'Confirmando que el Archivo Exista para hacer Backup
If TxtBackupBD.Text = "" Then
MsgBox "Debe ingresar un Nombre de Respaldo"
Exit Sub
End If
If TxtBackupBD.Text = "," Or TxtBackupBD.Text = "." Then
MsgBox "Nombre de Respaldo Erroneo"
Exit Sub
End If
Backup.CopyFile App.Path + "\BaseDatosDOMESA.mdb", FileVistaArchivos.Path & "\" & TxtBackupBD.Text & ".mdb", True
MsgBox "El Archivo Existe - [Respaldo de la Base de Datos hecho]"
Else
MsgBox "El Archivo no Existe - [Respaldo de la Base de Datos Cancelada]"
End If
Exit Sub
xerror:
MsgBox Err.Description
End Sub
El codigo pertenece a la siguiente ventana:
Nombre del FileListBox: FileVistaArchivo
Nombre del DirListBox: DirVistaCarpetas
Nombre del DriveListBox: DriveUnidad
Otra observación a dar a conocer es el que, que tan complejo podría ser el caso de que un cierto código en el programa genere un archivo de winzip de la base de datos la cual es una base de datos Access, ya que el checkbox mostrado en la ventana aun no posee ningun código que genere un archivo .zip del archivo .mdb
Que correpciones se llevarian a cabo para que estos errores se corrijan, gracias por tu ayuda, un saludo.
