Problemas de permiso VB

juan007
21 de Agosto del 2004
Hola compañeros(as)
Les cuento primero lo que pretendo hacer...bueno quiero respaldar la base datos del sistema para eso ocupo el siguiente codigo que va en un boton llamado respaldar(CmdRespaldo):

Private Sub CmdRespaldo_Click()
Dim rpta As Integer ' para grabar la respuesta del usuario
If UCase(BasedatosARespaldar) <> UCase(DondeSeRespaldara) Then
If BasedatosARespaldar <> "" Then
If DondeSeRespaldara <> "" Then

rpta = vbYes 'supones que el usario dijo que Si para que funcione el otro If, esto es en caso que no entre a la pregunta
If Dir(DondeSeRespaldara) <> Empty Then
rpta = MsgBox("El archivo Existe, desea reemplazarlo?", vbQuestion + vbYesNo)
End If

If rpta = vbYes Then
FileCopy BasedatosARespaldar, DondeSeRespaldara
MsgBox "Base Datos Respaldada Satisfactoriamente", vbInformation, "!!!Felicidades"
End If


Else
MsgBox "Error...Selecione donde quiere Respaldar la Base de Datos", vbCritical, "Advertencia"
CmdDondeRespaldo.SetFocus
End If
Else
MsgBox "Error...Busque la Base de Datos a Respaldar", vbCritical, "Advertencia"
CmdDondeEsta.SetFocus
End If
Else
MsgBox "El destino no puede ser el origen", vbCritical, "Opciones Base datos"
End If

End Sub

bueno el problema es que me arroja el siguiente error algo de permiso pero no entiendo bien a que va ese tal permiso, de todas maneras este es el error que me arroja:

Error '70' en tiempo de ejecucion:
Permiso denegado

If rpta = vbYes Then
FileCopy BasedatosARespaldar, DondeSeRespaldara
MsgBox"Base Datos Respaldada Satisfactoriamente",vbInformation,"!Felicidades"
End If

Y en la linea FileCopy BasedatosARespaldar, DondeSeRespaldara me dice que esta el error.

Alguna idea de como lo soluciono...... por favor me urge tengo que entregar el proyecto o mejor si me dan la solucion.

De antemano se agradece

Saludos desde Viña del Mar. CHILE

jhon
21 de Agosto del 2004
podrías pruebasr cerrando primero las conexiones que tuvieras abiertas.

Saludos