Programación General > Visual Basic 6.0 e inferiores

 Re: Problemas De Backup En Diskette

(1/1)

   :
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:


--- Citar ---Error en el método 'CopyFile' del objeto 'IFileSystem3'

--- Fin de la cita ---

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.

--- Código: Text --- 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 Subxerror:    MsgBox Err.DescriptionEnd 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.

RadicalEd:
NO SERA DE PRONTO QUE LA DB ES MAS GRANDE QUE 1.38MBytes QUE ES LO QUE AGUANTA EL DISKETTE
JEJEJE PUEDE QUE SI

   :
No, la base de datos pesa 634 kb hasta el momento, pero en base a lo que mencionas, en caso de que este error suceda cuando un usuario intenta hacer backup de la base de datos mayor a la capacidad de un diskette - ¿cómo se le indica al código esta limitación?

Navegación

[0] Índice de Mensajes