Problemas de permiso VB

[juan007]

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

[rsiles]

Private Sub Command1_Click()

Dim lngHandle As Long, SHDirOp As SHFILEOPSTRUCT, lngLong As Long
Dim Ft1 As FILETIME, Ft2 As FILETIME, SysTime As SYSTEMTIME

CreateDirectory "A:\Ginecologia", ByVal &H0
CopyFile "./db2.mdb", "A:\Ginecologia\" + "Asalinas.mdb", 0


lngHandle = CreateFile("A:\Ginecologia\Asalinas.mdb", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)


GetFileTime lngHandle, Ft1, Ft1, Ft2
FileTimeToLocalFileTime Ft2, Ft1
FileTimeToSystemTime Ft1, SysTime

CloseHandle lngHandle
End
End Sub

'//////////////////////Esto va en un modulo//////////////////////////////

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Const GENERIC_WRITE = &H40000000
Public Const OPEN_EXISTING = 3
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const FO_DELETE = &H3
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As Long) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Public Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long