Visual Basic - Para los que tienen problemas con el FILECOPY

Si eres de los programadores que, para copiar un archivo o crear un backup de tu sistema, usando Filecopy origen,destino y te sale: "Error 70. Permiso denegado"... he aqui la solucion:

Esto va en el boton de "Copiar" o "Crear backup"

On error goto NoCopia
'El origen de tu base de datos, es inamobible:

origen = App.Path & "\Bd\bd.mdb"

'En mi caso, tengo mi base de datos en la carpeta "Bd" y mi base de datos se llama "bd.mdb".

'Ahora el destino

destino="C:\backup.mdb"

'Esta ruta la puedes cambiar poniendo un DirListBox y un DriveListBox, eso lo dejo a tu imaginacion

'Ahora como copiar el archivo

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile origen, destino
MsgBox "La copia se realizó con exito", vbInformation, "Copia realizada"

exit sub

NoCopia:
If Err.Number > 0 Then
MsgBox Err.Number & " " & Err.Description, , "Error al copiar archivo"
Screen.MousePointer = vbDefault

Err.Clear
Exit Sub
End If

Ojala les haya servido, a mi si.
Saludos

perdon por meterme en contestar algo que no es consulta,
pero no parece mucho lo que arregla

Ahora uso los procedimientos de backup del sqlserver, asi tal responsabilidad no es tan artesanal

Cuando me daba tal error, era porque el codigo no daba tiempo entre cerrar la conexion y el intento de copia, y lo habia resuelto poniendo un timer para que reintentara segundos mas tarde.

ah,
quizas eso es lo que arreglas, si falla, el usuario aprieta de nuevo y anda...

En SQLServer no es necesario esta solucion "artesanal" como mencionas, pero los q usan Access y creaban el backup con FileCopy, tal vez les ayude más.
Saludos